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.REM • 



IOfcNTIf ICAT10N 



PRODUCT COOt 
PRODUCT NAMi 
DATF CREAU.D 



AC AM4C MC 

C/HBLO TM05 TKlh/TU/.' CONTROL I OCilC TfST PART II 

15 MARCH 19«4 

MAINTAINtR: DIAGNOSTIC ENGINEERING 

AUTHOR: J. HITT 

THb INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANG! WITHOUT NOTICE AND SHOU D NOT BF. CONST RU U 
AS A COMMITMENT Bt DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMl S NO 
RESPONSIBILITY FOR ANt ERRORS THAT MAi APPt AR IN 
THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS 
EURNISHEC TO THE PURCHASER UTOER A L ICtNSI » OR ''St 
ON A SINGLE COMPUTER SYSTEM A\H ^ \K 91 COPItO 
(WLTH INCLUSION Of DIGITAL'S LUPiRIGHl NOUCM 
ONL I TOR USE IN SUCH Si SUM, fcXCfPT As MA- 
OTHERWISE BE PROVIDE IN WRITING Bi DIGITAL . 

DIGITAL EQUIPMENT CORPORATION A.suMt ', Nn 
Rt SPONSIBL IL T i EUR JW. iJSt OR RHIAHUM* J' IT 
SUMWARf ON EQUIPMENT THAT Is NOT Sl'PPl It I) M? 
DIGITAl . 

CONtRIUHT ■{»* l97V t l9fi4 ttl DIGITAL fcQuiMW-Nl CORPORATION 
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iCSl- 

iWC: 

j9Aj 

jFC: 

jCS<?: 

jDS: 

lER: 

]ATS; 

sCC: 

iDBs 

i MR: 

}DT 5 

jSN: 



^5C 



06 APR 84 



10:56 PAGE IS 



U16/TU7 7 REGISTER BITS********** 

IS j 14 |1S j IP ill i 10 |09 ,06 |07 i 06 i OS j04 i 05 \Q? jOl ,00 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/XXXX 
SC \ TRE , MCP i SPR , DNA , P5l. i At 7 i A16 : RD Y , It ; * UN \l UN t FUN i FUN i F UN , GO 

i t i i " 1 i * * } i » j i , , i 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

WORD 
COUNT 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

BUS 
ADDRESS 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

FRAME 
COUNT 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

DLT|UCE|UPE|NED,NEMtPGE»MXFjMDP|OR i IR j CI R jPAT ,BAI iUP. ,U1 jUO 

J J i i i i iERRj i j j i j j ; 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

ATAjERR»PIP|M0l.|WRL|EOT|SPR|0PR|DRi|SSC|PES|SDNiIDB» iMK,B0T;Sl.A 

i t i i t t i t t t i ; ; i : 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
COE|UNS|OPI|DTEiNF-F|CS |FCF. iNSG|Pf T i INC jOAT ,FMT ;CNT ,RMR , Ii.R, ILF 
CRCi i , , |ITM| , (LRCiVPE jBPF , »BPt , ; ; 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
ATTENTION 
SUMMARt 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CHECK 
CHARACTER 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXX 

DATA 

BUFFER 
XXXXXXXXXXXXXXXXXXXXXXXXXX>XXXXXXXXXXXXXXXXXXXXXXXXXXXX V XXXXXXX 
DB , DB , DB , DB , DB , DB , DB , DB j OB , WR T , MM * OP t OP j U , OP j MM 

7 I 6 | 5 , 4 , 5 , ? i 1 , , P 1CIK1CI Kj 4 j 5 , ? i 1 | GO 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

DRIVE i r , ,Sl V{ 
TlPE |CH , ,PR , 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\ 

*ERIAl 

NUMBER 
xxxxxxxxxxxxxxxxxxxaxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ACl ,FCS,SAC,ENA,';PR,m N»Of NjOt N^ MI t t MT ,F MT ; FMT it VNi SSNj SSN jSSN 



/ 



X 



;< 



[)T 



t 



i l A , 4 
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1 



X 



seq oor 



xxxxxxxxxxxxxxxxxxxxxxaxxxxxxxxxxxxxxxxxxxxxxaax\\x\xxxxaxxxxx.xx 
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f.51 






6 50 






«^55 




OOOCOO 


6*4 




000001 


^?S 




000000 


6*6 




000005 


«>5* 




000004 


t-58 




000005 


r5^ 




000006 


MO 




00000? 


641 






640 






64? 






644 






64 S 




000 764 


o4t> 




000040 


64 ' 


000040 


000000 


6-itf 




000046 


o4^ 


000046 


00^550 


6 so 




000050 


65 i 


00005c" 


000000 


650 




000764 


65? 






654 






655 






656 




000060 


65: 


000060 


010456 


658 


000060 


000340 


65* 






660 






661 






660 




000 1*6 


66* 


000176 


000000 


664 






66 r . 






666 






66 * 




oooooo 


668 


000000 


000137 001000 


66*-* 






6"C 






6 '-' I 




000010 


6/0 
6 ,' *■ 


oooaio 


000137 00173c? 


6/4 






6 75 






6 -'6 




0000. J 4 


», / ,' 


000004 


01. J 446 


*. /* 


QQQ22& 


000340 



I). ' 
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} w r; i s Tt.R e uui vs+ ++♦♦+*♦ ++ 

R0'*0 

R0-*0 
R3«*3 
R4**4 
R5-*5 

SP'*6 
PC»*7 



SfcQ 0016 



j AC Til HOOK ****♦♦*+*♦♦ 
5SVPC-. 
. "40 

.WORD 
, 3 46 

.word $endad 

.-50 

.WORD 
. -ISVPC 



iSAVfc CURRENT tOCATION CTR 



iSfcT LOCATION 46 

t St 1 LOCATION 50 < 
^RESTORE LOCATION CTR 



jTTir INTERRUPT VEX TOR*** ** ***** 

. -60 

.WORD T TINT jTTl INTERRUPT HANDLER ADDRESS 

.WORD S40 (PRIORITY LEVEL / 

iSOFTWARE SWITCH REGISTER* ♦♦•♦♦♦♦♦♦ * 

;USED IF HARDWARE SWR - 177/77, OR NOT AVAIL . 
. -1 76 

SWREGs .WORD 



j START ADDRESS**** *♦♦♦♦•♦ 
. *000 

JMP START ; PROGRAM START 



jRtSTART ADDRESS*** 
. -010 

JMP sTO 



6/S 



jTM05 INTERRUPT VECTOR********** 

. 004 

MUNI iTAPE IHTtRRUPI HANDLER AODRLSS 

340 
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CZTEBC.P11 



t>80 
t>81 
b82 
b83 
b84 
b85 
b8b 
b8 7 
b88 
bd^ 
690 

692 
6*3 
b94 
o^5 
69t> 
b9^ 

b98 
699 
700 
■01 
r 0? 
705 
^04 
705 
706 
70 7 
708 
709 
710 
711 
7)2 



Ob APR 84 10:31 



SEQ 0017 



71 3 
714 
715 

716 
717 

'•18 

719 

721 
? v\ 



000510 
000512 

000514 

000516 
000520 
000522 
000524 
00052b 
000530 
00053,? 
000534 
00053b 
000540 
000542 



000544 

00054b 
000550 
000552 
000554 
000556 
000560 
000562 
000564 



000566 
0005 70 
000572 
0005 74 

0005 76 

000600 
000b 02 
000604 
000606 
000610 



000510 



,■2450 



172440 

1 72442 

1 72444 

1 

1 

1 72452 

1 72454 

1 7245b 

1 72460 

172462 

1 72464 

1^2466 

1724 70 

172472 



005405 
007415 
016423 
02043 7 
022443 
02544 7 
031455 
033465 
036473 



177776 
177570 
17 7560 
17 7562 
177564 
1 7 7566 
000000 
000020 
000224 
172440 





. -510 






j MASS BUS 


REGISTER EQUIVS********** 


CI 


1/2440 




UC 


172442 




HA 


172444 




FC 


172446 




cs 


172450 




DS 


172452 




ER 


172454 




AS 


172456 




CC 


172460 




08 


172462 




MR 


172464 




DT 


172466 




5N 


1724 70 




TC 


1724 72 






1 ILLEGAL FUNCTION CODES 


ILPT; 5405 






7415 






1642 5 






204 5 7 






2244 3 






2544 7 






31455 






33465 






36473 






j CONSTANTS 




PSl 


J : 1 7 7 7 76 


i PROCESSOR STATUS 


SWf 


*: 1775 70 


j SWITCH REGISTER 


J«< 


'-> : 17 ?560 


* T T tf READER STATUS 


TKf. 


it 17/5o2 


;TTi READ BU^ER 


TP< 


t: 1 7 7564 


; TT Y PUNCH STATUS 


TPE 


3 : 17 75bb 


; T T i PUNCH BUM E R 


si ^ 


/TtP: .UORD 


j INDICATES U AVE 


in 


AMT- 20 


; 1 TfcHAT ION AMOUNT 


vrc 


: T • 224 


jINTFRRUPT VfC'OR(RH) 


Rtl 


jSj 172440 


(STARTING REGISTER ADORES 



TYPE CO/1 - TElb'Tur.M 



C/URCO 


IM03 Tt 


lb U'.\* Ci 1 


11 


C/TtHC, 
724 


PU Ob APR- 84 10 


31 


725 
726 

726 


000612 






??«•> 


000b 12 


000000 




730 


000614 


000000 




751 


000b 16 


000000 




73? 


000620 


000000 




75? 


00062? 


000000 




734 


000624 


000000 




755 


000b?6 


000000 




756 


000630 


000000 




'3 7 


000652 


000000 




7 58 


000654 


000000 




7JQ 


000656 


000000 




740 


000640 


000000 




741 


000642 


000000 




742 


000644 


000000 




74 5 


000646 


000000 




744 


000650 


000000 




745 


000652 


000000 




746 


000654 


000000 




74? 


000656 


000000 




746 


000660 


000000 




749 


000662 


000000 




750 


000664 


000000 




751 


000666 


000000 




75? 


000670 


000000 




755 


0006 72 


000000 




754 


000674 


000000 




755 


000676 


000000 




756 


000700 


000000 




75? 


000702 


000000 




758 


000 704 


000000 




759 


000706 


000000 




760 


000710 


oooooo 




?61 


000712 


000000 




76? 


000/14 


oooooo 




7b 3 


000/16 


oooooo 




764 


000720 


oooooo 




765 


000722 


oooooo 




766 


000 724 


oooooo 




/6 : 


000726 


oooooo 




766 


000 7 50 


oooooo 




76'* 


000/5? 


oooooo 




7 70 


000/54 


oooooo 




7/1 


000 736 


oooooo 




* ' i'. 


000/40 


oooooo 




7--M 


000 74 2 


oooooo 




7 74 


000/44 


oooooo 




7 75 


000/46 


oooooo 




7 '6 


uoo /so 


oooooo 




■ , . , 


OOC /5. J 


oooooo 




778 


000 /M 


oooooo 
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j FLAGS AND COUNTERS********** 
f NO T E ALL FLAGS AND COUNTERS ARE 
» ADDITIONAL FLAGS BETWEEN STFLGS 
I (END OF FLAGS) 



SEQ 00x6 



Cl FARED ON STARTUP. PUT AN* 
(START OF FLAGS) AND ENDFLG 



STFLGS; 


TOBt 





TIB: 





HDRFL 


.: 


EMADORj 


DRVN 





TROO 





TR01 





TR02 





TR05 





TR04 





TR05 





TR06 





TR07 





TRIO 





TR11 





TR12 





TR15 





TR14 





TR15 





NRZOF 


": 


SLVN 





PFLG 





RTRN 





F.RAOC 


): 


TEMP] 


L: 


TEMP t 


?: 


TEMPJ 


S: 


ITCN 


h 


SAV1 





SAV2 





SAV5 





SCOLF 


5 : 


ITRLf 


': 


EXFl 





ATAF 





SLAF 





SSCF 





LRRF 





ASF" : 





SCF: 





TRf.r 





PFXF I 


: U 


STFl i. 


»: 


i TAor 


): 


T?4F I 


! 


ADDF 1 


: 


UAM; 


u 


FUN: 


u 


DA r c 


t! 


WIAD 
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SfcQ 0019 



7 79 
780 

781 
782 
783 

784 
785 
r 8t> 

78 r 

^88 
789 
790 
791 
79<^ 

793 
794 
795 
796 
79 7 
798 
79^» 
800 
801 
802 
803 
804 
805 
806 
80' 
806 
809 
810 
811 
81*? 
81? 
814 
815 
816 
817 
818 
819 
820 
821 
*?.?. 
8c": 5 
824 
825 



000 756 
000760 
000762 
000764 
000766 
000770 
000772 
000774 
000 776 
001000 
00100? 
001004 
001006 
001010 
OC1012 
001014 
001016 
001020 
001022 



001022 
001024 
001026 
001030 



001032 
001032 
001034 
001036 
001040 



001042 
001044 
001046 
001050 
001052 
001054 
001056 
001060 
001062 
0010^4 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



005140 
005160 
005164 
005172 



000005 
000005 
000012 
000012 
000000 
000017 
000017 
00001 / 
000017 
OOQOOO 



DATAD; 

ROAD: 

W2H Ci: 

DF.RR.: 

PRE* t. : 

SERF" I. : 

CRCNT; 

UDES: 

UPGFL : 

PATRN: 

STATF : 

RORVF" : 

RCDP: 

STATC: 

SKAT: 

PCNTR: 

DCHKFL 

CRCFL.G 

ENDFLG 



UCS1 : 
WCS2: 
WDSj 
UER; 



DATOL 
DATAO 
DATA1 
DATA2 
UATA3 



WC0P2 



WCDPO 



































.WORD 

.WORD 



;PAbS COUNTER 

;DATA CHECK HAG O'l 
;CRC CORRECTION TEST 



- CHECK /DO NOT CHECK 
IN PROGRESS 



jF.XPT WRAP STATUS******* 










jDATA PATTERN GENERATORS**** ♦ 



DAT1 {ALL ONE BITS 

UAT2 (ALL ZERO BIT', 

DATS jALTERNATING ONF //* RO H!Ts 

DAT4 {ALTERNAriNG PARPi CHARACTERS 

:CORE DUMP PATTERNS******* 



r . 

12 

12 


17 

i f 
1 7 
1 I 




c:m t\co 


imo5 n 


U> U'.\' CI 1 


11 


C2Tt.BC. 
8?o 

8? : 
8.:8 


fUl 06-APR-84 10 


31 








8?^ 


0010h6 


000000 




850 


0010 /o 


000000 




831 


0010 7*.? 


002414 




85.: 


001074 


002414 




855 


001076 


002526 




8 54 


00 1100 


002526 




855 


001102 


002600 




83t> 


001104 


002600 




85 r 


001106 


002 706 




838 


001110 


002/06 




85^ 


00111? 


002760 




840 


001114 


002760 




341 


001116 


003066 




842 


001120 


003066 




84 3 


00112? 


003144 




844 


001124 


003144 




845 


001126 


003252 




846 


001130 


003252 




84 7 


001132 


003324 




848 


001134 


003324 




849 


001136 


0034 56 




850 


001140 


003436 




851 


001142 


003564 




85? 


001144 


003564 




853 


001146 


003634 




8bs 


001150 


003654 




855 


C01152 


003/04 




856 


001154 


005704 




85? 


001156 


003766 




858 


001160 


003766 




854 


00116? 


004 354 




860 


001164 


004554 




fihl 


001166 


004666 




862 


00 1 1 70 


004666 




86 3 


00117? 


002306 




8M 


001 1 74 


000020 




865 


001 Wb 


000000 
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SfcQ 0020 



TADX: 
Tt A'JT: 

$CNTRLS 



j LOGIC TEST ENTRY TABLH *+♦***♦♦+♦ 



TSTTBL; 




T3 
T3 
T4 
T4 
T5 
15 
7 6 
T6 
T7 
1 7 
T10 
T10 
Tit 
Til 
T12 
T12 
T13 
T13 
T14 
T14 
T15 
T15 
T16 
T 16 
T 17 
T I 7 
T20 
T20 
WORD 
WORD 
.WORD 



UNO 

20 





jCUNUUN'i 

jXUN/XUK> 



.7 0* 

FLAG 



TEST' 



1? 



C/TEHCO 


IM03 -H 


it> w/: 


CM 11 


MACY11 


30(1046) 


06 APR 


-84 10:36 P 


C7TEHC. 


HI 06 -APR -84 


10:31 










rtrfc 












.t-VCN 




8t> / 












j PROGRAM START AND H 


8t«8 
















8t>^ 


001000 


010706 


000500 




START: 


MOV 


0500 f 52 


8/0 


001004 


015746 


000004 






MOV 


344, -(SP) 


8M 


001010 


013/46 


000006 






MOV 


306, C5P) 


8 7? 


001014 


010 737 


001040 


000004 




MOV 


01 $.304 


tf 7? 


001000 


00503 7 


000006 






CLR 


6)06 


8. '4 


001006 


0007 7 7 


177777 


17 7334 




CMP 


017 7777, 8SWR 


8 75 


001054 


001400 








BEQ 


0$ 


8 76 


001056 


000404 








BR 


3$ 


8 .* : 


001040 


020606 






IS: 


CMP 


C 5P ) * , I SP ) * 


8/8 


O01040 


010737 


000176 


000570 


0$: 


MOV 


0SUREG.SWR 


HN 


001250 


010637 


000006 




3$: 


MOV 


( SP ) ♦ , 306 


880 


001054 


010637 


000004 






MOV 


( SP ) ♦ , o)04 


881 


001060 


00500 7 








CLR 


(PC)* 


88.-? 


001260 


000000 






CHNFLG: 


.WORD 





885 
















884 


001264 


00573/ 


000040 






T5T 


a04? 


885 


001070 


001407 








BEQ 


50$ 


85b 


001070 


012737 


0001/6 


0005/0 




MOV 


05WREG.SWR 


88 7 


001500 


00503/ 


001 Oh? 






INC 


CHNF-LG 


888 


001504 


000137 


001310 






JMP 


SCHN 


88 1 -) 


001510 








505: 






8 l >0 


001510 


000040 






SCHN: 


NOP 




8<U 


00131? 


12273 7 


000006 


000041 


4$: 


CMPB 


06,u)041 


89? 


001500 


001005 








BNE 


5$ 


893 


001300 


010704 


014771 






MOV 


0MSG6O.R4 


8«4*« 


001306 


004/3 7 


013154 






JSR 


PC, T TOUT 


895 


001530 


000000 








HAL T 




896 


001354 


010704 


01416? 




5*j 


MOV 


0M5G1.R4 


89/ 


001540 


004 73/ 


013194 






JSR 


PC, T TOUT 


898 


0015*4 


005737 


001060 






TST 


CHNFLG 


8 l *9 


001550 


001402 








BEQ 


55$ 


900 


00135? 


000137 


001756 






JMP 


TSCD 


901 


00 1 556 


112737 


00004 5 


014160 


53$: 


novo 


0' 0.M5G1 


90/' 


001564 


012 704 


014660 






MUV 


0MSG44.R4 


9(J 5 


001570 


004 73/ 


015154 






JSR 


PC, I TOUT 


904 


0015 74 


013703 


000610 






MOV 


regs,r5 


•K)S 


001400 


004. 37 


0133b6 






JSR 


PC.OCTP 


90*> 


001404 


012705 


000610 






MOV 


0REGS.R5 


9o ; 


001410 


012701 


00000 7 






MUv 


7 . R 1 


1 '08 


001414 


012702 


1 /6400 






MOV 


01 76400.R0 


909 


001400 


010/03 


170500 






MOV 


01 70 500,0 5 


910 


0014?4 


004 7 5 7 


01063? 






JSR 


PC, r TH 


( *:i 


001430 


012704 


014 70? 






MOV 


0MSG45.R4 


•u? 


0014 54 


004 73 7 


013154 






JSR 


PC, I TOUT 


91'> 


001440 


015703 


000606 






MUV 


VE.CT ,H5 


914 


001444 


004/3/ 


013306 






JSR 


PC. DC IP 


r M5 


00 14 SO 


012/05 


000606 






MOV 


0VECt.ps 


91»> 


0014 f >4 


012701 


000004 






MOV 


04 , R 1 


91 7 


001460 


012/0? 


000004 






MOV 


0??4,R,' 


918 


0014#i4 


010/05 


000 ISO 






Mi)v 


1 50 , R 5 


■#19 


0014 70 


004 73 7 


01?6 V 






JSR 


PC . T 1 M 


9/0 


0014 /4 


015/00 


00060*.. 






MUV 


VI C i .HO 


921 


001500 


010 700 


010446 






MOV 


0MT1NT.IRO)* 



SEQ 0001 



housekeeping**** ♦ ♦ ♦ **♦ 

j SET STACK POINTER 
{SAVE F.RROR TRAP 

I SET TIME OUT TRAP TO GO TO 1$ 

j USE SOFTARE SWITCH IF SWR 17/777 
jOR TIMES OUT 

j OTHERWISE USE HARDWARE SWR 

{RESET STACK 

{SET SWR - TO ADDRESS OF SOFTARE SWR 

j RESTORE ERROR TRAP 

j I CLEAR CHAIN INDICATOR 

; ; CHAIN MODE INDICATOR 

j 8 1/0 - CHAIN/NOT CHAIN MODE 

j j BRANCH IF IN DUMP MODE 

i t INVOKE SOFTWARE SWR 

; j SET CHNFLG * CHAIN MODE 

; j GO TO CHAIN ADDRESS 



(BRANCH IF NUT LOADED VIA TMUP 
{ADVISE USER TO REMOVE MEDIA FROM UUT 



{PRINT TITLE 

;SEE IF IN CHAIN MODE 

j IF NOT : BR 

;Et SF GO SI ART TE ST 

{DO NOT PRINT TITLE ON RESTART 

{REQUEST REGISTER ADDRESS, 

{PRINT CURRENT ADDRESS 
{SET ADDRESS SAVE LUC 
{SET SIZE OF RESPONSE 
{SET UPPER LIMIT 
{SET LOWER LIMIT 
{GO GET RESPONSE 

{REQUEST VECTOR 

{PRINT CURRENT VECTOR 

{SET ADDRESS SAW i OC 

{SET SIZE Of RESPONSE 

j St T UPPf R I IMl 1 

jSE T I OWER I I Mil 

j(,0 lit 1 Rt SPONSE 

;iiE i VE CruM 

{LOAD INTERRUPT ADDRESS IN VtCTOH 



K.I t 



c* 7 TiBco imo3-tei6 -iu// en 11 

C/TEBC.P11 Ob -APR -84 10:51 
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SEQ 00^2 



9?? 
9? 3 
9?4 
925 
9?6 

9? : 

928 

950 
931 
932 
933 
954 
955 
93o 

95; 

958 
959 
940 
941 
94? 
94 5 
944 
945 
946 
94 7 
948 
949 
950 
951 
95.* 
955 
954 
955 
956 
95" 
958 
959 
9f,0 
9»)1 
9>j? 
9*, ', 
9b 4 
9o5 

9>,/ 

9*. 8 
\#6*« 
97Q 



001504 

001510 

001514 
001520 
001524 
001526 
00155? 
001554 
001556 
00154? 
001546 
001550 
00155? 
001554 
001556 
00156? 
001566 
00157? 
001576 
00160? 
001606 
00161? 
00161b 
0016?? 
001626 
00165? 
0016 56 
00164? 
001646 
00165? 
001656 
00166? 

001666 
0016 7? 
001676 
00170? 
001706 
00171? 
001 716 
001 /?? 
001726 



001 75? 
001756 
001 74? 
001 /4b 
001752 



oi?;io 

015700 
012701 
01?70? 
0100?? 
062700 
005501 
0015 75 
01270? 
01? 700 
006200 
00502? 
005500 
001575 
012704 
004 737 
015705 
004 75 7 
012705 
012701 
01270? 
012705 
004757 
012704 
004 757 
015705 
00473/ 
012705 
012/01 
01? 70? 
012703 
004 737 

012704 

004 73 7 
015705 
004/3/ 
012705 
012701 
012/02 
01?/05 
004 73 7 



012/06 

00505/ 
0050 5/ 
00503 7 
004 737 



000540 
000610 
000016 
000510 

000002 



000612 



014 724 

015154 
000622 
015566 
00062? 
00000? 
000007 
000000 
01265? 
01474? 
013154 
00066? 
013566 
00066? 
00000? 
00000 7 

oooooo 

01265? 

0150. 5 

015154 
00060? 
01556b 
00060? 
OOOOO? 
000001 
OOOOOO 
01265? 



000500 
001004 
001014 
001020 
014020 



6$ 



7 5 



{START 
ST2: 



MOV 
MOV 
MOV 
MOV 
MOV 
ADD 
DEC 
BNF. 
MOV 
MOV 
A5R 
Cl.R 
DEC 
BNE 
MOV 
JSR 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
JSR 

MOV 
JSR 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
JSR 



MOV 
C! R 
L'l R 
CI R 
JSR 



0540, (RO) 
REGS.RO 
016, Rl 
OCl,R? 
R0,CR2)» 
02, RO 
Rl 
6$ 

4STFLGS.R2 
OENDFLG-STFLGS 
RO 

(R2)* 
RO 
75 

OMSG57,R4 
PCpTTOUT 
DRVN.R5 

pc.ocrp 

0DRVN,R5 
02, Rl 
07, R2 
00, R5 
PC.TTR 
0MSG58.R4 
PC, T TOUT 
SLVN.R5 
PC.OCTP 

0Sl.VN.R5 
0?,R1 

07, R? 
00.R5 
PC.TTR 

0MSG64.R4 
PC, T TOUT 
SI VTYP.R3 
PC.OCTP 
*Sl VTYP.R5 

0?.fxl 

Ol.R? 
00, R 3 
PC.TTR 



0500, 5 P 
HDRV* 

*'Cn:r 

LRt" 1 '. 



LOAD PRIORITY 
GET STAR! Of REGS 
SET NUMBER OF REGS 

(GET START OF TABLE 

{BUILD TABLE 

j BUMP AD0RF5S 

{SEE IF DONE 

jIF NOTt BR 



,R0 ;GET 

ORM COUNT 
{CLEAR FLAGS 



OF FLAGS TO CLEAR 
* COUNTERS 



{REQUEST TM05 DRIVE 

;GET CURRENT DRIVE 

{AND TYPE IT 

jTTR ROUTINE RETURN'.; DRIVE 10 (R5) 

{LIMIT RESPONSE TO 1 CHARACTER 

{BETWEEN AND 7 

{GET RESPONSE t PUT IN DRVN 
{REQUEST SLAVE 

{GET CURRENT SLAVE 

;AND TYPE IT 

;TTR ROUTINE RETURNS RE.PONM TO ( R5 ) 

it IMIT RESPONSE TO 1 CHARACTER 

jBETUEEN 7 

jGFT RESPONSE. fc PUT IT IN SLVN 



{RE QUE 



SLAVE TYPE 



;GI T CURRENT SI. AVI- T YP{ 

[TYPt CURRENT VALUf 

{ TTR ROUTINE STORtS RESPONSE 

;LTMIT RESPONSE TO 1 CHAR 

jHI I IMIT 

;L0 LIMIT 

;GET RESPONSE 



IN (RVO 



£ STORE IN SLVTfP 



{SET STACK PTR 

j CLEAR READ REVERSE Ft At. 

j St. T CR.' ► I AG 2RC NOT 
iGET SOFTWARE SWiTCHtb 



IN PROGRESS 



k; 



C'TEBCO 


TM05-TE 


16 Ri/7 


en n 


MACU1 


30(1046) 


06 -APR -84 10:36 PAGE 2 


CZTEBC. 


Pll 06-APR-84 


10:31 










^.*1 
l »/2 












i TE.ST 


SCHEDULAR* ********* 


^/4 


001756 


05.? / / 7 


000100 


1 76606 


TSCD: 


bis 


<MOO,aT!<S ; 


*vr> 


001764 


00503 7 


000 776 






Ct.R 


WPGR. \ 


9:6 


C01770 


00503 7 


000736 






Ct.R 


STFLG ; 


47 ; 


0017 74 


017 700 


176570 






MOV 


SSWR.RO 


o;^ 


002000 


042700 


17/700 






BIC 


#17 7 700.R0 ; 


9,«o 


002004 


001122 








BNE 


STSCD j 


l )JU) 


002006 


00573 7 


001262 






TST 


CHNFl.G ; 


l >81 


002012 


001457 








BEQ 


TSCDA 


^2 


002014 


012737 


17 77 77 


000622 




MOV 


# I , DRVN t 


98 3 


002022 


012737 


1/7/77 


000662 


NXTDRV: 


MOV 


#-l,SLVN 5 


^84 


002030 


0127 7 7 


000040 


176462 


\%\ 


MOV 


#40,acs 1 


9K5 


002036 


005237 


00062L 






INC 


DRVN 5 


986 


002042 


022 73 7 


000010 


000622 




CMP 


#10, DRVN ; 


98; 


002050 


001521 








BEQ 


$DONE 1 


988 


002052 


013777 


000622 


176440 




MOV 


DRVN.hlCS s 


S8 c; > 


002060 


005777 


176424 






TST 


olCl { 


990 


002064 


0327 7 7 


010000 


176426 




BIT 


flioooo, acs 1 


991 


002072 


001356 








BNE 


1* j 


992 


002074 


00523 7 


000662 




NXTSLV: 


INC 


SL.VN 5 


993 


002100 


001011 








BNE 


15 ; 


994 


002102 


00573 7 


000622 






TST 


DRVN 


99S 


002106 


001006 








BNE 


1* 


996 


002 no 


122737 


000006 


00004 1 




CMPB 


#6 , M #4 1 ; 


99 7 


002116 


001002 








BNE 


It 


998 


002120 


00523 7 


000662 






INC 


Sl.VN j 


99S 


002124 


022737 


000010 


000662 


1$: 


CMP 


010.SLVN ; 


1000 


002132 


001733 








BEQ 


NXTDRV ; 


1001 


002134 


0137 7 7 


000662 


176400 




MOV 


SLVN,a)TC : 


100 2 


002142 


0327 7 7 


002000 


176366 




BIT 


#2000, 3D T ; 


1005 


002150 


001751 








BFQ 


NXTSLV j 


1004 


002152 


012737 


001066 


000740 


TSCD A j 


MOV 


#TSTTBL.LTADD 


1 00 1 . 


002160 


06273 7 


00000** 


000740 


TSCOO: 


ADD 


#4,1 TADD 


1006 


002166 


013737 


000/40 


000/12 


TSCD1: 


MOV 


t. TADD.I1RLP 


100 7 


002174 


062737 


000002 


000712 




ADD 


#2, I TRIP ; 


1008 


002202 


00503 7 


000616 






CLR 


HDRFt. . 


1009 


002206 


017700 


176526 






MOV 


oil IADD.R0 ; 


1010 


002212 


000110 








JMP 


(HO) j 


1011 


002214 


032777 


002000 


176346 


TSCD2: 


BIT 


#2000 . oJSWR j 


1012 


002222 


001403 








BEU 


T5CD3 . 


1013 


002224 


000000 








HAl T 




1014 


002226 


005037 


000 / 76 






tl.H 


WPG> I ; 


101S 


002232 


00573 7 


000736 




TSCU3: 


TST 


STMli 1 


1016 


002236 


001750 








BFQ 


1 »CUO j 


10W 


002240 


017/00 


1 76324 






MOV 


ti):.WR,RO 


1018 


002244 


042700 


17 7 700 






BTf 


#1 7 7 700.RO ; 


1019 


002250 


001642 








BEQ 


TSCD : 


1 020 


002252 


012737 


0OO001 


000736 


ST5CD: 


Mi)V 


#l, , -.TMli J 


10P1 


002260 


025/00 


0011 74 






CMP 


Tl AM.RO j 


1022 


002264 


0024 1 








Bl T 


UNI) j 


10."*''. 


002266 


00*:, 500 








AM 


HO 


11V4 


0022/0 


006100 








HOI 


HO ; 


10.-S 


0022 72 


ow/v 


OO 106*. 


000/40 




MOV 


#ts; Uli ,1 1 AIM) 


1056 


002300 


0600 5 7 


000/40 






ADD 


RO.l TADD j 



ScQ 002^ 



SET KEYBOARD IE BIT 
CLEAR WRAP PATRN FLAG 
CLEAR SINGLE TEST FLAG 

BRANCH If SINGLE TEST SELECTED 
GO SELECT SINGLE. TEST 

{BRANCH IE NOT IN CHAIN MODE 

{INITIALIZE DRIVE. # 

; INITIALIZE 51 AVE # 

jINIT CONTROLLER 

jSTFP DRIVE # 

;EXTT IF ALL DRIVES TESTED 

;EOR AVAlLABIl.ITi 

;LOAD DRIVE # 

{ACCESS DRIVE 

{BRANCH IF DRIVE NON EXISTANT 

iCNED - 1) 

;STEP SI Ave # AND BRANCH 

{IF NOT SLAVE 

{BRANCH IE NOT DRIVE # 

{BRANCH IF NOT TMDP 

: STEP TO SLAVE # 1 
.MRANCH IF ALL SLAVES TESTED 
;FOR AVAILABILITY 
jl OAD SLAVE UNIT # 
{BRANCH Ih 51 AVE NOT 
i {PRESENT (SPR - 0) 



SET HERAT ION AODHEVi 
CLFAR PRINT HEADER FLAG 
SET POINTER TO TEST 
GO TO TEST 
SEE V HAl T ON TEST 
IF NOT: BR 

CI EAR WRAP DATA GENERATOR K.,Uj 
SE U SINCiLF TEST 
IF NOT: BR 

MASK TEST NUMBER 

V SO: BR 

SET stNGl t TEST F l. AG 

SEE It- EXCEEDED TESTS 

IF SO: BR 

'\\ I TABl L MOD If I* R 

>Y T ri-S' POINTER 



C/TEBCO 


1M03 TE 


16/IU/7 


Ci 1 IT 


CZTt.BC. 


Pll 06 -APR -84 


10:31 


102/ 


002304 


000/30 




10.'8 


002306 


005 73 7 


001262 


10 t » 


002312 


001270 




1030 


002314 


012704 


014641 


1031 


002320 


004 73 7 


013154 


1032 


002324 


013703 


001014 


1033 


002330 


004 737 


013366 


1034 


002334 


005000 




1035 


002336 


005300 




103b 


002340 


001376 




103; 


002342 


013/00 


000042 


103tt 


00234b 


001405 




103'"> 


002350 


000005 




1040 


002352 


004 710 




1041 


002354 


000240 




104c 1 


002356 


000240 




104? 


002360 


000240 




1044 


002362 


000240 




1045 


002364 


0057 3 7 


001262 


104 b 


002370 


001005 




104 ■ 


002372 


032777 


010000 


1048 


002400 


001401 




1049 


0024 02 


000000 




: 05o 


002404 


00523/ 


001014 


1051 


002410 


00013/ 


001756 


1052 









MACU1 30(1046) 06 -APR -84 10} 36 PAGE ?A 



Tfc.Nl); 

SDONE 



H 



$fcNDAO: 



HERE 



1 76170 



TENDX: 



BR 


TSCD1 


tst 


CHNELCi 


BNE 


NXTSLV 


MOV 


#MSG4 1 , R4 


J5R 


PC, nour 


MOV 


PCNTR.R3 


J5R 


PC.OCTP 


Cl.R 


RO 


DEC 


RO 


BNE 


15 


MOV 


3tf42.R0 


BEQ 


HERE 


Rt.se. T 




JSR 


PC.CRO) 


NOP 




NOP 




NOP 




NOP 




TST 


CHNFl.G 


BNE 


TENOX 


BIT 


10000 ,o)SWR 


BEQ 


TENOX 


HALT 




INC 


PCNTR 


JMP 


TSCD 



SEU 0024 



j BRANCH IF IN CHAIN MODE 

{PRINT END OF PASS 

;PRINT PASS NUMBER 

OEt.AY WAITING FOR 

TTY TO FINISH 

GET ACTll RETURN ADDRESS 

BRANCH IF NOT ACTll 



{BRANCH IF IN CHAIN MODE 

; SEE U HALT ON PASS 
; IF NOT: BR 

;BUMP PASS COUNTER 
{RESTART 



M;j 



C/TEBCO lM03-TElt>'Rr// CI. 1 II 
CZTERC.P11 06-APR-84 10:31 
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SEQ 0025 



1053 












j THESE. 


TESTS CHECK OATA FORMA TING 


10S4 












•AND TRANSFER THROUGH THE TM03 WRAP AROUND MODES 


loss 


















10S6 
105'/ 

1058 












; LOGIC 


TEST 1: WRAP 3, NRZ, NORMAL ODD ***** 


002414 


012737 


004270 


001022 


LT1: 


MOV 


04270. WCS1 


SET EXPT CS1 


1059 


002422 


012737 


000100 


001024 




MOV 


0100, WCS2 


SFT EXPT CS2 


1060 


002430 


012737 


010600 


001026 




;,cv 


O106O0.WD5 


SET EXPT D5 


1061 


002436 


012737 


000000 


001030 




MOV 


00, WER 


SET EXPT ER 


106? 


002444 


012737 


0151/6 


000620 




MOV 


OMSLTl.EMADDR 


SET HEADER 


1063 


002452 


012737 


001700 


000774 




MOV 


01700, UDES 


SET NRZ, NORMAL, ODD 


1064 


002460 


005037 


001000 




LT1A: 


CLR 


PATRN 


POINT TO PATTERN 


1065 


002464 


012737 


0024 72 


000710 




MOV 


0LUB.SCOLP 


'.'.T SCOPE ADDRESS 


10t>6 


002472 


004 73/ 


005320 




LT1B: 


J5R 


PC.WAM3 


GO DO WRAP 3 


1067 


0024 76 


005237 


001000 






INC 


PATRN 


BUMP PATTERN POINTER 


1068 


002502 


032737 


000004 


001000 




BIT 


04, PATRN 


SEE IF DONE 


1069 


002510 


001770 








BEQ 


LT1B 


If NOT: BR 


1070 


002512 


004 737 


012150 






JSR 


PC, ITER 


GO SEE IF ITERATIONS 


1071 


002516 


005037 


001004 






CLR 


RDRVF 


CLEAR READ REVERSE FLAG 


1072 

1 / 3 


002522 


000137 


002214 






JMP 


TSCD2 


RETURN TO SCHEDUL AR 


1074 












jLOGIC 


TEST 2: WRAP 3 , PE . NORMAL. ODD***** 


1075 


















1076 


002526 


000240 






L.T2; 


NOP 






10/7 


002530 


012737 


004270 


001022 


LT2A: 


MOV 


04270, WCS1 


SET EXPT CS1 


1078 


002536 


012/37 


000100 


001024 




MOV 


0100. WCS2 


i SET EXPT CS2 


1079 


002544 


01273/ 


010640 


001026 




MOV 


010640, WOS 


{SET EXPT DS 


1080 


002552 


012737 


000000 


001030 




MOV 


00,WER 


{SET EXPT WER 


1081 


002560 


012737 


015244 


000620 




^0\/ 


0MSLT2.F.MAUDR 


jSET HEADE n 


1082 


002566 


012737 


002300 


000774 




MOV 


02300, UOFS 


{SET PE, K ,RMAL, ODD 


1083 
1084 


0025 74 


000137 


002460 






JMP 


LT1A 


♦EXECUTE TEST SEQUENCE 


1085 

1086 












{LOGIC 


TEST 3: WRAP ?. t NR7, NORMAL, ODD***** 


1087 


00260C 


012737 


004260 


001022 


LT3: 


MOV 


04260, WCS1 


;SET EXPT CS1 


1088 


002606 


012737 


000100 


001024 




MOV 


0100, WCS2 


{SET EXPT CS2 


1089 


002614 


012737 


010600 


001026 




MOV 


010600, WDS 


;SET EXPT DS 


1090 


002622 


012737 


000000 


001030 




MOV 


O0,WER 


{SET EXPT WER 


1091 


002630 


012737 


015311 


000620 




MOV 


OMSl T3.EMADDR 


;SET HEADER 


109c? 


002636 


012737 


001700 


000774 




MOV 


01700.UDES 


, SET TO NR/, NORMA! , ODD 


1093 


002644 


005037 


001000 




LT3A: 


Ct.R 


PATRN 


{POINT TO PAT1ERN 


1094 


002650 


012737 


002656 


000710 




MOV 


olt3B,sl:olp 


;SET SCOPE ADDRESS 


1095 


002656 


004/37 


005254 




LT3B: 


JSR 


PC.UAM2 


;G0 DO WRAP 2 


1096 


002662 


00523/ 


00' "00 






INC 


PATRN 


,BUMP POINTER 


109/ 


002666 


03273/ 


00 .J4 


001000 




RTT 


on, PATRN 


, SEE IF DONE 


1093 


002674 


0017/0 








BEQ 


I I3B 


{ IF NOT: BR 


109<< 


002o76 


004/37 


012150 






JSR 


PC, ITER 


{GO SEE U ITERATIONS 


1100 


002 702 


000137 


002214 






JMP 


TSCD2 


{RETURN TO SCHEOUl.AR 



N! 

l.YTE.tKO TM03-TLlb'lU/; CLI II MACU1 *0( 1046) 06 APR-84 36 PAGE H 

CZTEBC.Pll 06 -APR 84 10:31 SfcQ 0013 

LOGIC TEST l^: RGAQ REVERSE, WAM3 ( M890e, ) 



at 
546 



REPEAT OK TEST 2 EXCEPT READ REVERSE COMMAND I'i ISSUED. 
LIKELY FAULT LOCATIONS; M890e, M6909 

LOGIC TFST lfe: CRC ERROR CORRECTION 



THIS test simulates a bad track ON TAPE RKi-.H *ing in a crc error t, 

SUBSEQUENT CORRECTION OF OATA IN THE F All INii [RACK. 
THE TEST PROCEEDS THROUGH THE FOLLOWING STEPS: 

A;WRI T E DATA USING WRAP 

BtREWRITE DATA WITH DATA BITS IN ONE TRACK A:TERFD ;, *>TN(i WRAP 4 

C:READ REVERSE USING WRAPS 

D.-REWRITE DATA AS IN STEPB USING WRAP4 

AT THIS POINT THt DATA READ BAC [/ HAS BEEN CORRECfFD TO MATCH 

THE DATA WRITTEN IN STEP A 

E:REPEAT STEPS AD ABOVE f OR \ ACh IRA:-' 

F:REPEAT -TEP^ A E ABOVE FOR ALL 1'S.Al.l 0" J L 

12512b DATA PATTERNS. 



LOGIC TEST I7 t CRC ERROR CORRECTION 



THIS T EST SIMiJiATF , *Ul ' IP! E JAILING "AK< I TF ' '"A" 
NO ERROR CORRECTION IS PER* ORMf D. the :t >' ..( i- « NCt ■ ■«» 
SAME AS TEST 16 STEP A- -STEP F. THE DATA PATTERN ust 'J * 
125125. 



LOGIC TEST ^0: READ REVERSE wA*'*. NR/ 



R'..P r .A" Of Uj' IS AB ;vE (jEE AL i ■ M - T . ( ' *"» P T t hE U 
PERFORMED IN NR/ MODE. 






aiN.^jc. *.*■.« 



C/TkHCO TM03 U lb n;,\* Ct T II 
CJTtBC.Pll Ob APR 84 10:31 

54 * 
S48 
S4*» 

SM 
">"V 
y,< 

y»4 

y* l '» 

y^ 

55 ' 
y> » 



MACU1 3(H 104 tO Ob APR -84 10:36 PAGE 14 



, TITLE C/TEBCO TM03 - TE 16/TU/ / Cl- T II 



SEQ 0014 



iCONTROl LOGIC TEST PART II 
I AC A/94C MC 

jJ.G. ADAMS 

{REVISED MA^ 1978 BY J.G.ADAMS 



jREVISED MARCH 1984 Ot J. HITT 



|mO CHANGED MODULE TfPEOUTS TO 
j»»B REELECT TM03 RfGISTER SF I 
|.»B ADDED TU/7 TEST CAPABIilTr 
i ADDED XUN/XOFf F UNCI IONAt T T f 



.MCALL . IACTL1. . tEOP, JCATCH, $SAVf. # $RESTORt , 5CHAIN, SCHNMODfc 

.Nt 1ST MC 

.1 1ST ME 

.ENABLE ABS.AMA 



S*3 
«-\»,4 

r »bb 

Sb*"» 
S '0 

"S'i 

s V 
SM 
is -4 



• ** * 

594 



I IF 



CONSOLE. SWITCHES********* 



SW14 
SW13 

swu* 

SWil 

SWIO 
SUA: 

SWf; 

SWb ; 

swo- 

HARDWARt 



t-HAl T ON ERROR 
-CONTINUE 
1-LOOP ON ERROR 
0-CONTINUE 

1-00 NOT PRINT ERRORS 
O-PRINT ERRORS 
C-HALT AT END OF PASS 
1-CONTINOUS CYCLE 
1-INHIBIT ITERATIONS 
0-00 ITERATIONS 
I -HALT AT END Of* EACH 
-CONTINUE 
1-NO URAP DATA CHECK 
0-DO WRAP DATA CHF.C 
1-NO WRAP STATUS CHECK 
0-00 WRAP STATUS CHf C>< 
1-SEl ECTABl E WRAP DATA 
0-AUTO PAT TERNS 
f>: 'jHECT TEST NUMB I R : : 

swr <i"i;{00v * irrrtt or 



TEST 



PATH RN \ IN SINt/il E TE ^ > 



oo • Ai ; r t » t , 

NOT AVAUAULE 



u*i 'jOetware swr 



C.Mt HfO !MO« II U> U'/.' Cl 1 1 I 
lYTlUC.PU Ob -APR 84 10:51 

V* * 

VV 
W 

i-OO 

*o : 

b04 

*er- 

*.->0*:-» 
*0 " 

*0 V * 

♦'11 

*>1S 

*">lr, 
M 



NACUl 50(1046) 06 APR 84 lOjSfi PACK 1«S 



»>l l * 
•i.'C' 



' -t 

*0 



iCSl: 

iWC: 

j3A: 

;FC; 

{CS<?: 

{OS: 

;ER: 

j ATS: 

:CC: 

{DB: 

j MR: 

iOT; 

; 4 iN: 



Kjj 



, TH6/TU77 REGISTER BITS********** 
IS j 14 ,15 ilc? j 11 J 10 ,09 ,08 |07 1 06 :0 r > i 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SC i TRt,MCP|SPRiDNA,P5L|A17|A16,RDY|It. jf-UNj 
I I I I -1 I { I | j i j 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

WORD 
COUNT 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
BUS 
ADDRESS 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

FRAME 
COUNT 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

DLT}WCE,UPE,NED}NEM,PGE } MXF,MDPtOR , IR iOR; 
! t t t 1 } {ERR, , , j 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
A T A i ERR i PIP i MOl. i URL i EOT i SPR i DPR i DRi i SSC i PES i 
I i t i t i i t ; i i 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CDEiUNSiOPIiDTEiNF-TiCS |FCE |NSG|PF r , INC {DAT , 
CRCj , , j iITMi j iLRCiVPtsBPFs 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

ATTENTION 

SUMMARt 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

CHECK 

CHARACTER 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXVX 

DATA 

BUFFER 
XXXXXXXXXXXXXXXXXXXXXXXXXX> XX XXX XX XXXXXXX XXX 
DB |DB jDB ,DB ,DB jDB ,DB »DH s DB ,WRT,MM s 

7 I 6 i 5 { 4 j .5 j ? j I j , P iCl K,Cl U; 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

DRIVE , 7 j jSIVi 

TlPE jCH , ,PR , 

xxxxxxxxxxxxxxxxxxxx xxxxxxx xxxxxxxxxxxxxxxxx 

r»ERIAI 

NUMBER 

xxxxxxxxxxxx xxxxxxx xxxxxxxxxxxxx xxxxxxxxxxxx 

ACl tFCS,SAC{ENA,'.PR,Df N|Df -N|DtN^HT jf Mr ; f MT { 

{ i |H» I { 4 , .' , 1 , H i 4 , .' , 

xxxxxxx x xxxxxxx xxxxxxx axxxxxxxxxxxxxxxxxxxxx 



04 ,05 

xxxxxxx 
V UN, FUN 

{ 



\0? ,01 ,00 { 

xxxxxxxxxxxxx 

(FUN; FUN} CO 

J 



xxxxxxxxxxxxxxxxxxx/ 



x xxxxxxx xxxxxxxxxxxx 



xxxxxxxxxxxxxxxxxxx 



xxxxxxx 

PATjBAI 

{ 

xxxxxxx 

SDNjIDB 

xxxxxxx 

FMVjCNT 

iBPE 

xxxxxxx 



xxxxxxxxxxxxx 

|U2 iUI |U0 

j { ; 

xxxxxxxxxxxx 

, HlKjBOTjSl.A 

: j ; 

xxxxxxxxxxxxx 

{RMRjIi.R,ILF 
xxxxxxxxxxxx 



XX XX XX xx xxxxxxxxxxxx 



xxxxxxxxxxxxx XX XXX XX 



xxxxxxx 
OP i OP 

4 } .< 

xxxxxxx 



xxxxxxxxxxxx* 

jU i OP {MM 
J ? { 1 luO 

xxxxxxxxxxxx 



xxxxxxxxxxxx xxxxxwx 



xxxxxxx 

FMTif.VN 
1 jPAR 

xxxxxxx 



XXX KX XXX XX XX 
;SSN;SSN,SSN 
• 4 J ^ ' 1 

xxxxxxxxxxxxx 



SEQ 001! 



c.mihco mo* n u> iu/: ci i ii 

C/THV.^ll Ob -APR 84 10s Jl 



•l,M 






f>V 






^53 




000000 


t>M 




ooooo i 


t>35 




000002 


»5b 




000005 


f>3 * 




000004 


i*38 




000005 


t>3^ 




00000b 


MO 




ooooo? 


Ml 






M? 






M? 






M4 






MS 




000 764 


Mb 




00004? 


M ' 


00004,:? 


000000 


M8 




000046 


M^ 


00004b 


00^352 


650 




00005? 


*>5l 


00005c! 


000000 


t>52 




000 764 


t.5? 






654 






6 55 






♦>56 




OOOOtoO 


os; 


000060 


012456 


658 


00006^ 


000340 


65^ 






660 






661 






66? 




000i'*b 


nb * 


000176 


000000 


r>M 






r>*-, r . 






*i»>6 






66 ■' 




000200 


66H 


000200 


00015/ 001200 


*■>**>•-* 






'."C 






b ■' 1 




000210 


*7j 
6 i* *■ 


000210 


000137 001732 


6 .'4 






6 75 






6 .'6 




0002?4 


* * / ■' 


ooo.';' 4 


01244* 


6,'h 


000226 


000340 



I). ' 

MACU1 301104b) 06 APR R4 I0i3b PAUt lb 



jRHUSTER IQUlVS** *♦*♦***+ 

R0-'#0 
R1<*1 
R?-*? 
R3«*3 
R4»*4 
R5-*S 
SP-*6 
PC-K7 



SEQ 0016 



jACTU HOOK *********** 

JSVPC-, 

. *42 

.WORD 

, 3 4b 

.WORO $ END AD 

.-5? 

. WQKO 

.MSVPC 



jSAVb CURRENT lOCATION CTR 



iSfcT LOCATION 46 

I SET LOCATION 52 * 
(RESTORE LOCATION CTR 



679 



jTT* INTERRUPT VEC TOR*** * ****** 

. -60 

.WORD T TINT jTTl INTERRUPT HANDLER ADDRESS 

.WORD 340 ; PRIORITY I.EVtL / 

jSOFTWARE SWITCH REGISTER*** • ♦♦ ♦ • ♦ ♦♦ 

;USED IF HARDWARE SWR - 177:77, OR NOT AVAIL. 
. -176 
SWREGs .WORD 



i START ADORt-SS*********** 

. »200 

JHP START {PROGRAM START 

jRLSTART ADDRESS********** 
. -210 
JMP sT? 

(TH03 INTERRUPT \\ C TOR*** ♦♦♦*** • 

. V?4 

MTINT jIAPE INTERRUPT HANDLER AUURLSS 

340 



c:u m:o tmoj-ti u> w;: ci i u 

C2Te.BC. PI l Ob -APR 84 10i31 



M*0 






t>81 




000510 


680 






b83 






^84 


000510 


1 70440 


b85 


00051,? 


172440 


b8b 


000514 


170444 


b$r 


000516 


1 70446 


b88 


0005/70 


1 70450 


b8^> 


000520 


1 70450 


690 


000524 


172454 


*9l 


00050b 


17045b 


692 


000530 


170460 


6*3 


000530 


1 70460 


b94 


000534 


1 70464 


o95 


00053b 


170466 


696 


000540 


1704 70 


b9- 


000540 


170470 


b98 






699 






TOO 






7 01 


000544 


005405 


700 


00054b 


007415 


70? 


000550 


016403 


^04 


000550 


00043 7 


705 


000554 


020443 


706 


000556 


00544/ 


70 7 


000560 


031455 


708 


000560 


033465 


709 


000564 


036475 


710 






711 






710 






713 


000566 


177776 


714 


000570 


177570 


715 


0005 7 


17 7560 


716 


0005 74 


177560 


717 


0005 76 


17 7564 


''18 


000600 


17 7566 


719 


OOObOO 


000000 


"00 


000604 


000000 


701 


000606 


000004 


700 


000610 


175440 
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10 



se.o ooi'/ 



jMASS BUS REGISTER EQUIVS+********* 



CI 


1/0440 


wc 


170440 


HA 


170444 


EC 


170446 


C5 


172450 


DS 


172450 


ER 


170454 


AS 


170456 


CC 


170460 


DB 


172460 


MR 


172464 


DT 


1 70466 


SN 


1704 70 


rc 


1704 70 




l ILLEGAL FUNCTION CODES 


ILFT: 5405 




7415 




1640 3 




004 3 7 




0044 3 




0544 7 




31455 




35465 




364 7 3 




j CONSTANTS*** *+•**** 


PSl 


J: 17/7 76 {PROCESSOR STATUS 


SW* 


*: 177570 jSWUCH REGISTER 


1K< 


S: 17 7560 j T T tt READER STATUS 


Tl<( 


4: l?/5o0 ; T T t READ BU»'*fcR 


TP< 


;: 17 7564 ; T T t PUNCH STATU i 


TPE 


3: 17 7566 j TT t PUNCH Bt> f E R 


slVTiP: .WORD tlNDICAItS HAVE 


ITAMT; JO {ITERATION AMOUNT 


vrc 


:T* 004 tINTFRRUPJ VEC'PRtRH) 


Rfcl 


/j: 170440 s START TNG REGISTER AODRES 



T>PE CO/l -- TElb''TU. v 7-> 



C/HHlO 


TM05 Tf 


lb TU/7 Ci 1 


11 


czre.HC. 
;?4 


Pll 06 -APR -84 10 


31 


725 
726 

728 


00061? 






7?9 


000b 12 


000000 




750 


000614 


000000 




731 


000616 


000000 




73? 


000620 


000000 




733 


000622 


000000 




734 


000624 


000000 




735 


000b?6 


000000 




736 


000630 


000000 




73" 


000632 


000000 




7 58 


000634 


000000 




?3Q 


000636 


000000 




740 


000640 


000000 




741 


000642 


000000 




742 


000644 


000000 




74 3 


000646 


oooooo 




744 


000650 


000000 




745 


000652 


oooooo 




746 


000654 


oooooo 




74 7 


000656 


oooooo 




748 


000660 


oooooo 




749 


000662 


oooooo 




750 


000664 


oooooo 




751 


000666 


oooooo 




75? 


0006 70 


oooooo 




753 


000672 


oooooo 




754 


000674 


oooooo 




755 


000676 


oooooo 




756 


000700 


oooooo 




757 


000702 


oooooo 




758 


000 704 


oooooo 




759 


000 706 


oooooo 




760 


000710 


oooooo 




761 


000712 


oooooo 




76? 


000/14 


oooooo 




7<>3 


000716 


oooooo 




764 


000720 


oooooo 




765 


000722 


oooooo 




766 


000/24 


oooooo 




76 : 


000726 


oooooo 




768 


000 7 30 


oooooo 




76'"* 


000/ 3? 


oooooo 




7 70 


000/34 


oooooo 




7/1 


000 736 


oooooo 




7 /,' 


000 740 


oooooo 




7 7 * 


000 74? 


oooooo 




7 74 


000/4 4 


oooooo 




- • > 


000 746 


oooooo 




7 ,V 


uOo /SO 


oooooo 




* ' * 


00C/5 t J 


oooooo 




7 78 


000VM 


oooooo 
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; FLAGS AND COUNTERS*** **♦♦♦♦* 
«NO T K ALL FLAGS AND COUNTERS ARE 
{ADDITIONAL rt.AGS BETWEEN STFLGS 
{(END OF FLAGS) 



SEQ 0018 



ClfARED ON STARTUP. PUT AN t 
(START OF FLAGS) AND ENDFl.G 



STFLGS: 

TOB: 

TIB: 

HDRFL : 

EMADDR: 

DRVN 

TROO 

TR01 

TR02 

TR03 

TR04 

TR05 

TR06 

TR07 

TRIO 

TR11 

TR12 

TR13 

TR14 

TR15 

NRZOf 

SLVN 

PFLG 

RTRN 

ERAOD 

TEMPI 

TEMP? 

TEMP3 

ITCNT 

SAV1 

SAV? 

SAV5 

SCOLP: 

ITRLP: 

EXR 

ATAF 

SLAF" 

SSCF 

LRRf 

A5F : 

SCF: 

rRT.r : 

PFX* I. 
STf I G 

1 TAOD 

r?4M 

ADD* I 

WAM: 

Mih: 

tJAT-7: 
WIADj 



















































o 




C/UBCO 


1M03-U 16 1U/7 CL1 


11 


C/ThBC, 


Pll 06 -APR 84 10 


31 


7 :<* 


000756 


000000 




780 


000760 


000000 




781 


0007 o 2 


000000 




78? 


000764 


000000 




76? 


000766 


000000 




784 


000770 


000000 




785 


000 7 72 


000000 




*86 


0007 74 


000000 




78 7 


000776 


000000 




^88 


OOiOOO 


000000 




,"*89 


00100? 


000000 




790 


001004 


000000 




791 


001006 


000000 




79? 


001010 


000000 




795 


00101? 


000000 




"94 


001014 


000000 




795 


001016 


000000 




796 


001020 


000000 




79 7 


001022 






'98 








79^ 








800 








801 


00102? 


000000 




80? 


001024 


000000 




807 


001026 


000000 




804 


001050 


000000 




805 








80t> 








80 * 








806 


00105? 






809 


00105? 


005140 




810 


001054 


005160 




811 


001056 


005164 




81.? 


001040 


005172 




81*. 








814 








815 








816 


00104? 


000005 




817 


001044 


000005 




818 


001046 


000012 




819 


001050 


000012 




820 


00105? 


000000 




821 


001054 


000017 




*?.?. 


001056 


00001/ 




82 5 


001060 


00001 / 




8?4 


001062 


00001/ 




825 


0010<UI 


000000 
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SfcQ 0019 



DATAD 
ROAD: 

w?n r> 

DERR. 
PREFL 
SERFL 

CRCNT 

UDES: 

WPGFL 

PATRN 

STATF 

RDRVF' 

RCDP: 

STATC: 

SKAT: 

PCNTR: 

DCHKFL 

CRCRG 

ENDFLG 



UCS1 
WC52 
WDS; 
UER; 



DATBL 
DATAO 
DATA1 
DATA? 
DATA3 



WCDPO: 



































.WORD 

.WORD 



{PASS COUNTER 

{DATA CHECK HAG O'l - CHECK /DO NOT CHECK 
;CRC CORRECTION TEST IN PROGRESS 



;EXPT WRAP STATUS******* 










{DATA PATTERN GENERATORS*** ♦* 



DAU 
DAT? 
DATS 
DAT4 



{ALL ONE BITS 

5 ALL ZERO HITS 

{ALTERNATING ONE'/fRO KM > 

i ALTERNATING PAR Hi CHARACTERS 



{CORE DUMP PATTERNS******* 



WCDP2i 5 



1? 

12 


1 7 
1 7 
1 -•' 
1 l 




— ' 



c:\[ tn:o 


I MO* U 16 U'.' .' CI 5 


11 


C/ThBt\ 

82 7 
828 


PI I Ob APR -84 10 


31 








8. >v ^ 


001066 


000000 




830 


0010 70 


000000 




831 


0010 72 


002414 




832 


0010 74 


002414 




83? 


001076 


002526 




834 


001100 


002526 




835 


001102 


002600 




83o 


001104 


002600 




837 


001106 


002 706 




835 


001110 


002 706 




83^ 


001112 


002760 




840 


001114 


002760 




841 


001116 


003066 




842 


001120 


003066 




843 


001122 


003144 




844 


001124 


003144 




845 


001126 


003252 




846 


001130 


003252 




84/ 


001132 


003324 




848 


001134 


003324 




849 


001136 


0034 36 




rtSO 


001140 


0034 36 




8SI 


001142 


003564 




852 


001144 


003564 




853 


001146 


003634 




854 


001150 


003634 




855 


C01152 


003704 




856 


001154 


003 704 




857 


001156 


003 766 




858 


001160 


003 766 




85^ 


001162 


004354 




860 


001164 


004 354 




M#S1 


001166 


004666 




862 


001170 


004666 




8^5 


001172 


002306 




AM 


0011 74 


000020 




865 


0011/6 


000000 
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stQ ooao 



LOGIC TEST ENTRY TA8LE **♦**+♦♦♦♦ 



TSTTBLj 








T 1 





L.T3 




L.T3 




I T4 




I T4 




LT5 




I T5 




L.T6 




I T6 




IT 7 




1.1 7 




I T10 




I T10 




I Til 




I. Til 




LT12 




L.T12 




1. 113 




L.T13 




LT14 




LT14 




I.T15 




( T15 




L T16 




L T16 




LT17 




IT I 7 




i t;?o 




l T20 


TADX; 


.WORD IIND 


11 AS I : 


.WORD 20 


$CMRLS 


t .WORD 



sCUNIAIN'i if 0* 
jXUN/XUH> FLAG 



TEST 1 



LVTEBCO 


:N03 Tt 


16 iu.'/ 


CM 11 


MACY11 


30(1046) 


06 -APR 


-84 10 i 36 P 


C/TERC. 


P?i Ob -APR -84 


10:31 










8t»t* 












.EVEN 




86/ 












{PROGRAM START AND H 


8t>8 
















8e^ 


001300 


012 706 


000500 




START: 


MOV 


#500 . 53 


8/0 


001204 


013746 


000004 






MOV 


3#4« -(TiP) 


8^1 


001310 


013/46 


000006 






MOV 


a#6, cgp) 


8\: 


001214 


013/37 


001240 


000004 




MOV 


#i$,a#4 


8.* 3 


001222 


005037 


000006 






CLR 


a#6 


8 -'4 


001226 


0227 7 7 


177777 


17 7334 




CMP 


017 7777.8SWR 


8 75 


001234 


001402 








BEQ 


2$ 


8 76 


001236 


000404 








BR 


3i 


8 .' ,' 


001240 


022626 






H: 


CMP 


( SP ) ♦ , I 5P ) ♦ 


8/8 


f'Ol^, 1 


01273/ 


0001/6 


000570 


3$: 


MOV 


JSWRE.G.SWR 


8M 


001250 


012637 


00000t> 




3$; 


MOV 


( sp ) ♦ , a#6 


880 


001254 


012637 


000004 






MOV 


C SP ) ♦ , SW4 


881 


001260 


005027 








CLR 


(PC)* 


88.? 


00126? 


000000 






CHNFLG: 


.WORD 





88? 
















884 


001264 


00573/ 


000042 






T5T 


a#42 


885 


001270 


00140? 








BEQ 


50$ 


856 


00137? 


012737 


0001 Z6 


000570 




MOV 


#SWREG,SWR 


88; 


001300 


00523/ 


001262 






INC 


CHNFLG 


888 


001304 


000137 


001310 






JMP 


SCHN 


H8 l J 


001310 








50$: 






8 l »0 


001310 


000240 






SCHN: 


NOP 




8^1 


001313 


12273 7 


OOOOOh 


000041 


4*; 


CMPB 


#6,u)#41 


89? 


001320 


00100S 








BNE 


5$ 


895 


001322 


012704 


014/71 






MOV 


0MSG62.R4 


8^M 


001326 


004 /3/ 


013154 






vJSR 


PC, T TOUT 


895 


001332 


000000 








HAL T 




896 


001334 


012704 


014162 




5$: 


MOV 


frMSGl,R4 


84/ 


001340 


004/3/ 


0131S4 






J5R 


PC. T TOUT 


898 


0013*4 


00573/ 


001263 






T5T 


CHNFLG 


8 l * l » 


001 3 SO 


0014 02 








BEG 


53$ 


900 


001352 


000137 


001/S6 






JMP 


T5CD 


901 


00135ft 


112737 


00004 3 


014162 


53$! 


HOVB 


#' #,M5G1 


90/' 


001364 


012704 


014660 






MOV 


#MSG44.H4 


90 *, 


0013 70 


004 73/ 


013154 






J5R 


PC, ITUUT 


904 


0013/4 


013703 


000610 






MOV 


REG5.R3 


90S 


001400 


004, 37 


013366 






J5R 


PC.OCTP 


90*> 


001404 


012705 


000610 






MOV 


frRt.Gfj.R5 


90 ; 


001410 


012/01 


00000 / 






MUv 


fr/.Rl 


908 


001414 


012/02 


1 /6400 






MOV 


frl /6400.R2 


909 


001420 


012/03 


172300 






MOV 


#1 73 300 ,t) 3 


910 


001424 


004 7 37 


013633 






JSR 


PC, TTR 


9:1 


001430 


012704 


014 702 






MOV 


<>MSG45,R4 


91,' 


0014 34 


004 73 7 


013154 






JSR 


PC, I TOUT 


91? 


001440 


013 703 


000606 






MOV 


Vt CT ,R? 


914 


001444 


004 / 3 ; 


01336ft 






J5H 


PC ,tlC IP 


9 1 S 


00 14 SO 


012 /OS 


000606 






MOV 


#VEC r.RS 


9lo 


0014S4 


012/01 


000004 






NOV 


#4 . R 1 


9i ; 


001460 


012/03 


000334 






MOV 


#334, R, ' 


' + 18 


001464 


013/03 


000 ISO 






MOV 


01 50, R 3 


■u<# 


00 1 4 /O 


004 7 3 / 


0136?.' 






J5H 


PC . T T R 


'.*.:(' 


0014 h\ 


01? 700 


000* AW/ 






MOV 


VIC I .HO 


<«*: 


001500 


012/30 


013446 






MOV 


#MHNT,(RO)» 



13 



HOUSEKEEPING**** ♦♦♦♦*♦ 

{SET STACK POINTER 
I SAVE ERROR TRAP 



iSET TIME OUT TRAP TO GO TO 1$ 

{USE SOFT ARE SWITCH W SWR 17 7777 

;0R TIMES OUT 

{OTHERWISE USE HARDWARE SWR 

{RESET STACK 

{SET SWR * TO ADDRESS OF SOFTARb SWR 

{RESTORE ERROR TRAP 

{{CLEAR CHAIN INDICATOR 
; {CHAIN MODE INDICATOR 
{{1/0 - CHAIN/NOT CHAIN MODE 
it BRANCH IF IN DUMP MODE 

; INVOKE SOFTWARE SWR 
jSET CHNFL G * CHAIN MODE 
{GO TO CHAIN ADDRESS 



jFiRANCH IF NOT LOADED VTA TMOP 
{ADVISE USER TO REMOVE MEDIA FROM UUT 



PRINT II T(E 

SEE IF IN CHAIN MODE 

IF NOT ; BR 

El Sf GO START U ST 

DO NOT PRINT TITLE ON RFSTART 

{REQUEST REGISTER ADDRESS 

{PRINT CURRENT ADDRF SS 



SEQ 0021 



ADDRESS SAVE EOC 
SIZE Qi RESPONSE 



{SET 

; st.r 

{SET UPPFR LIMIT 
{SET LOWER LIMIT 
l(iO GET RESPONSE 

I RE OUST VECTOR 

{PRINT CURRENT VECTOR 
jSET ADORES/) SAVE i OC 
{SET SI/E 0* RESPONSE 
{SET l.tPPt M t IM1 ! 
jSf T I OWf.R I IMIT 
jl,0 Gt T Rf sPONSE 

nit ; ;t ci oh 

{LOAD 1NTF RRUPT ADDRE ' 



».» 



IN VECTOR 



K.I t 



C/TtBCO IM03-TE16 IU// CM 11 
C/TEBC.P11 06 -APR 84 10:31 
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*»?? 


001504 


01?/10 


00034 


9? 3 


001510 


013 700 


OOOhlO 


9?4 


001514 


012701 


000016 


9?5 


001520 


012702 


000510 


^26 


001524 


0100?? 




9? : 


001526 


062700 


00000? 


928 


00153? 


005301 




<V9 


001534 


001373 




930 


001536 


01270? 


00061? 


9?1 


00154? 


012700 


000210 


93? 


001546 


006200 




93? 


001550 


0050?? 




934 


001552 


005300 




935 


001554 


001375 




936 


001556 


012704 


014724 


93: 


001562 


004 737 


013154 


938 


001566 


013703 


000622 


93^ 


00157? 


004/37 


013366 


940 


001576 


012705 


000622 


941 


001602 


012/01 


000002 


94? 


001606 


01270? 


000007 


94 3 


00161? 


012703 


000000 


944 


00161b 


00473/ 


01?63? 


94 5 


00162? 


012704 


01474? 


946 


001626 


004 737 


013154 


^4 7 


00163? 


013703 


000662 


948 


001656 


004 73/ 


013366 


*)4<*) 


001642 


012705 


00066? 


950 


001646 


012/01 


OOOUO? 


951 


001652 


012/0? 


00000 7 


95.? 


001656 


012/03 


000000 


953 
QS4 
955 


00166? 


004 737 


01263? 


001666 


012/04 


0150 :■> 


95b 


00167? 


004 73 7 


013154 


95 ' 


0016 76 


013703 


00060? 


9 b a 


001702 


004/3/ 


013366 


959 


001 706 


012705 


00060? 


9f,0 


001712 


012/01 


00000? 


9*,1 


001/16 


012/02 


000001 


962 


001 7?? 


012/03 


000000 


9*, ', 
'*»»4 


001/26 


004737 


01?63? 


9oS 


001 /32 


01? /06 


000500 


9f,/ 


001736 


00503/ 


001004 


'«,H 


001 74? 


0050 3 / 


0010U 


'>»■'« 


001 /4». 


00503/ 


001020 


9>0 


001752 


004737 


014020 



6$ 



/$ 



SEU 002:2 



5T/UU 
T2i 



MOV 


0340, (RO) 


MOV 


RFGS.RO 


MOV 


#16, Rl 


MOV 


OCl.R? 


MOV 


R0,(R2)> 


ADD 


02, RO 


DEC 


Rl 


BNE 


6* 


MOV 


0STFLGS.R2 


MOV 


0ENDFLG-5TFLGS 


A5R 


RO 


Cl.R 


(R2)> 


DEC 


RO 


BNE 


!% 


MOV 


OMSG57,R4 


JSR 


PC .T TOUT 


MOV 


DRVN.R3 


JSR 


pc.ocrp 


MOV 


0DRVN.R5 


MOV 


02, Rl 


MOV 


07, R2 


MOV 


00, R3 


J5R 


PC.TTR 


MOV 


0MSG58.R4 


JSR 


PC, T TOUT 


MOV 


SLVN.R3 


JSR 


PC.0C1P 


MOV 


0SLVN.R5 


MOV 


0?,R1 


MOV 


07, R? 


MOV 


00, R3 


JSR 


PC.TTR 


MOV 


0MSG64.R4 


JSR 


PC, T TOUT 


MOV 


SI VTYP,R3 


JSR 


PC.OCTP 


MOV 


ost vrvp.Rb 


NOV 


#?,fil 


MOV 


Ol.R? 


MOV 


0O.R3 


JSL 1 


PC.TTR 


210 




MOV 


;>500 , sp 


a r 


HUMV* 


a h 


PCM )\i 


a r 


L : U'"' '. 


JSR 


PCtUTviWR 



j LOAD PRIORITY 
{GET START Of REGS 
{SET NUMBER OP REGS 
jGFT START OF TABLE 
iBUILD TABLE 
jBUMP ADHRESS 
j SEE IF DONE 
iIF NOT? BR 



,R0 jGET 

If ORM COUNT 
{CLEAR FLAGS 



# OF FLAGS TO CLEAR 

♦ COUNTERS 



{REQUEST TM03 DRIVE # 

;GET CURRENT DRIVE 

;AND TYPE IT 

jTTR ROUTINE RETURNS DRIVE 10 (R5) 
{LIMIT RESPONSE TO 1 CHARACTER 
{BETWEEN AND 7 

{GET RESPONSE £ PUT IN DRVN 
{REQUEST SLAVE 

{GET CURRENT SLAVE 

;AND TYPE IT 

;TTR ROUTINE RETURNS RERUNS* 10 ( R5 ) 

{LIMIT RESPONSE TO 1 CHARACTER 

{BETWEEN 7 

jGFT RESPONSE f, PUT IT TN Sl.VN 



{RE QUE 



SLAVE TYPE 



{Gl T CURRENT SLAVE TYPE 

{TYPE CURRENT VALUE 

; TTR ROUTINE STORES RESPONSE IN C R5 ) 

jLTMIl RESPONSE TO 1 CHAR 

;HI I TMIT 

jl.O LIMIT 

s GET RESPONSE £ STORE IN Sl.VTfP 



{SET STACK PTR 

jCLEAR READ REVERSE El A(, 

{SET CR2 M AG 2RC NOT 
iGET SOFTWARE SWITCHED 



IN PROGRESS 



CTEBCO TM03-THti Ri/7 CM II 
CZTEBC.Pll 06-APR-S4 L0:31 
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!<;■ 
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SEQ 0023 



^.'1 

<) 7 5 












{TEST 


SCHEDULAR* ********* 


9/4 


001756 


052 / 7 7 


000 100 


1 76606 


TSCD: 


HIS 


*noo,aTi<s 


SET KEYBOARD IE BIT 


^/5 


0017t>4 


00505 7 


000/76 






Cl.R 


UPGR. 


CLEAR WRAP PATRN FLAG 


9/t> 


C01770 


00503 7 


000736 






Cl.H 


STR.G 


CLEAR SINGLE TEST EI AG 


^/ ; 


0017 74 


017/00 


1765 70 






MOV 


8SUR.R0 




9 ,-8 


002000 


042700 


17/700 






DIC 


4177700.ro 


BRANCH If SINGLE TEST SE1 FCTE 


9 / ° 


002004 


001122 








BNE 


STSCD 


GO SELECT SINGLE. TEST 


9;V 


002006 


00575 7 


00126? 






TST 


CHNFLG 


; BRANCH IE NOT IN CHAIN MODE 


l .»tU 


002012 


001457 








Bf.Q 


TSCOA 




98? 


002014 


012 73/ 


17/777 


000622 




MOV 


ft l.ORVN 


; INITIALIZE DRIVE 


98? 


002022 


012737 


177/77 


000662 


NXTDRV: 


MOV 


O-l.Sl.VN 


; INITIALIZE SLAVE 


984 


002030 


0127 7/ 


000040 


17646? 


1$: 


MOV 


040, 3CS 


{INIT CONTROLLER 


98 b 


002056 


005257 


000622 






INC 


DRVN 


j STEP DRIVE 


98t> 


002042 


022757 


000010 


000622 




CMP 


010.DRVN 


jEXIT IF ALL DRIVES TESTED 


98 7 


002050 


001521 








BEQ 


iDONE 


{FOR AVAILABII.IT i 


988 


002052 


013777 


000622 


176440 




MOV 


DRVN.5ICS 


;LOAD DRIVE 


48^ 


002060 


005777 


176424 






TST 


fc)Cl 


{ACCESS DRIVE 


990 


002064 


032777 


010000 


176426 




BIT 


010000, n)CS 


;BRANCH IF DRIVE NON EXISTANT 


991 


002072 


001356 








bne 


1$ 


} ( NED = 1 ) 


992 


002074 


005237 


C0066? 




NXTSLV: 


INC 


5L.VN 


{STEP SLAVE AND BRANCH 


995 


002100 


001011 








BNE 


n 


{IF NOT SLAVE 


994 


002102 


00573 7 


000622 






TST 


DRVN 


{BRANCH IE NOT DPI VI 


995 


002106 


001006 








BNt 


1$ 




996 


002110 


12273 7 


000006 


000041 




CMPB 


#6,3041 


{BRANCH IE NOT TMDP 


99 7 


002116 


001002 








BNE 


1$ 




998 


002120 


005237 


000662 






INC 


Sl.VN 


: jTEP TO SLAVE 1 


999 


002124 


022757 


000010 


000662 


1$: 


CMP 


010, Sl.VN 


/1RANCH IF ALL SI AVE S TESTED 


1000 


002152 


001735 








BEQ 


NXTDRV 


{FOR AVAILABILITY 


1001 


002134 


015777 


000662 


176400 




MOV 


si.vn, arc 


;l OAD SLAVE UNIT 


loop 


00214? 


0327 7 7 


002000 


176366 




HIT 


#2000, 3D T 


{BRANCH U SI AVE NUT 


1005 


002150 


001751 








BFQ 


NXTSLV 


{PRESENT (SPR - 0) 


1004 


002152 


012/37 


001066 


000/40 


TSCOA: 


MOV 


OTSTTBL.l.TADO 




loos 


002160 


062737 


00000^ 


000/40 


TSCDO: 


ADO 


04,1 TADD 




1006 


002166 


013757 


000/40 


000/12 


TSCDli 


MOV 


1. TADD.ITRLP 




100 7 


002174 


06273/ 


000002 


000712 




ADD 


02.ITRI P 


Sh T ITERAT ION AOURE.V, 


1008 


002202 


00503/ 


000616 






CLR 


HDRR. 


Clear print header flag 


1009 


002206 


017700 


1 76526 






MOV 


all 1ADD.R0 


SF T POINTER TO TEST 


1010 


00221? 


000110 








JMP 


(HOI 


GO TO TEST 


ion 


002214 


0327 7 7 


002000 


176346 


TSCD2: 


BIT 


02000 , oJSWR 


SEE U HAl T ON TEST 


1012 


00222? 


001403 








BEU 


TSC05 


IF NOT: BR 


1015 


002224 


000000 








HAl T 






1014 


002226 


005037 


0007 76 






L'l.H 


WPG* L. 


CI EAR WRAP DATA GENERATOR El A 


1015 


002252 


005737 


000736 




T5C03; 


TST 


st> 1 g 


SE V SINGLE TEST 


1016 


002236 


001750 








be a 


1 »coo 


IF NOT: BR 


101 / 


002240 


017/00 


1 76324 






MOV 


WSWR.RO 




1018 


002244 


042 700 


177/00 






BIC 


*';1 7 7 700.R0 


MASK TEST NUMBER 


1019 


002250 


001642 








in. o 


TsCO 


V SO: BR 


1 020 


00225? 


01273/ 


000001 


000736 


ST SCO: 


MOV 


#i,mr i; 


SET SINGI \ TEST f LAG 


10? 1 


002260 


025/00 


001174 






CMP 


Tl A5T.R0 


SH : \r EXCEEDEO TESTS 


10?? 


002264 


002410 








Bl T 


UNO 


IF SO: BR 


10,-.' < 


002266 


OOh 300 








AM 


HO 




10. '4 


OO.v/0 


006100 








ROl 


RO 


, St 1 TAB! E MODI* If R 


10. ,r . 


00??/? 


0L'/ 5.' 


oOIOmi 


000 740 




MOV 


ol'..; TBI ,1 l'IDl) 




1026 


002300 


06003/ 


000/40 






AGO 


RO,l TADD 


;'»(■' T n-S T POINTER 



C/H.BCO 


TM03 TE 


16/ 1U/7 


Ci 1 11 


CZTE.BC. 


Pll 06 -APR 84 


10:31 


102/ 


00.1304 


000/30 




1028 


002306 


005 73/ 


001262 


1020 


002312 


001270 




1050 


002514 


012704 


014641 


1051 


002320 


004737 


013154 


105 J 


002324 


013705 


001014 


1055 


002530 


004 737 


013566 


1054 


002534 


005000 




1035 


002556 


005300 




1056 


002540 


001376 




105: 


002542 


013/00 


000042 


1058 


00254b 


001405 




103'* 


002350 


000005 




1040 


002352 


004 710 




1041 


002354 


000240 




1042 


002356 


000240 




1045 


002360 


000240 




1044 


002362 


000240 




1045 


002364 


0057 3 7 


001262 


104b 


002370 


001005 




104; 


002372 


032/77 


010000 


104tf 


002400 


001401 




1049 


002402 


000000 




: 050 


002404 


00523/ 


001014 


1051 


002410 


00013? 


001756 


105*? 
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TEND: 

$DONE 



1$ 



$ENDAD: 



HERE 



176170 



TENDX 



BR 

1ST 

BNE. 

MOV 

sJSR 

MOV 

J5R 

CLR 

DEC 

BNE 

MOV 

BEQ 

RE5E1 

JSR 

NOP 

NOP 

NOP 

NOP 

T5T 

BNE 

BIT 

BEQ 

HALT 

INC 

JMP 



TSCD1 
CHNFLti 
NXTSl.V 
tfMSG41.R4 

PC, nour 

PCNTR.R3 

PC.OCTP 

RO 

RO 

1$ 

att42.R0 

HERE 

PC.(RO) 



CHNFl.G 
TENDX 

410000, o)SWR 
TENDX 



SfcQ 0024 



{BRANCH IF IN CHAIN MODE 

I PR INT END OF PASS 

j PRINT PASS NUMBER 

{DELAY WAITING FOR 

jTTY TO FINISH 

{GET ACTll RETURN ADDRESS 

{BRANCH IF NOT ACTll 



PCNTR 
TSCD 



{BRANCH IF IN CHAIN MODE 

{SEE W HALf ON PASS 
{ IF NOT : BR 

{RUMP PASS COUNTER 

{RESTART 



c/n.Bco u105-n.it>' iu/; ci.i n 

C/TEBC.Pli 06-APR-84 10:31 
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PAGF. 2f> 



SfcQ 002b 



1055 












{THESE. 


TESTS CHECK DATA FORMA TING 


1054 

1055 












;AND TRANSFER THROUGH THE TM03 WRAP AROUND MODES 


1056 
105/ 












jLOGIC 


TEST 1: WRAP 3, NRZ, NORMAL ODD ***** 


1058 


002414 


012737 


004270 


001022 


LT1: 


MOV 


44270, WCS1 


SET EXPT CS1 


1059 


002422 


012737 


000100 


001024 




MOV 


4100, WCS2 


SET EXPT CS2 


1060 


002430 


012737 


010600 


001026 




i.CV 


410600, WD5 


SET EXPT DS 


1061 


002436 


012737 


000000 


001030 




MOV 


40, WER 


SET EXPT ER 


106? 


002444 


012737 


0151/6 


000620 




MOV 


4MSLT1.EMADDR 


SET HEADER 


1063 


002452 


012737 


001700 


000774 




MOV 


41700. UDES 


SET NRZ, NORMAL, ODD 


1064 


002460 


005037 


001000 




LT1A: 


CLR 


PATRN 


POINT TO PATTERN 


1065 


002464 


012737 


0024 72 


000710 




MOV 


4LT1B.SC0LP 


'.'.T SCOPE ADDRESS 


1066 


0024 72 


004 73? 


005320 




LT1B: 


J5R 


PC.WAM3 


GO DO WRAP 3 


1067 


0024 76 


005237 


001000 






INC 


PATRN 


BUMP PATTERN POINTER 


1068 


002502 


032737 


000004 


001000 




BIT 


44, PATRN 


SEE IF DONE 


1069 


002510 


001770 








BEQ 


LT1B 


IF NOT j BR 


1070 


002512 


004737 


012150 






JSR 


PC. ITER 


GO SEF IF ITERATIONS 


10/1 


002516 


005037 


001004 






CLR 


RDRVF 


CLEAR READ REVERSE FLAG 


1072 

10/3 


002522 


000137 


002214 






JMP 


TSC02 


RETURN TO 5CHFDULAR 


1074 












jLOGIC 


TEST 2 j WRAP 3 , PE » NORMAL. ODD***** 


1075 


















10 76 


002526 


000240 






I.T2; 


NOP 






10 7 7 


002530 


012737 


004270 


001022 


LT2A: 


MOV 


44270, WCS1 


SET EXPT CS1 


1078 


002536 


012/37 


000100 


001024 




MOV 


4100, WCS2 


5 SET EXPT CS2 


1079 


002544 


012737 


010640 


001026 




MOV 


410640, WDS 


{SET EXPT DS 


1080 


002552 


012737 


000000 


001030 




MOV 


40,UER 


{SET EXPT WER 


1081 


002560 


012737 


015244 


000620 




MOV 


4MSLT2.FMADDR 


{SET HEADfc" 


1082 


002566 


012737 


002300 


000774 




MOV 


42300, UnFfi 


{SET PE, K ..RMAL, ODD 


1083 
1084 


002574 


000137 


002460 






JMP 


LT1A 


•EXECUTE TEST SEQUENCE 


1085 
1086 












i LOGIC 


TEST 3: WRAP 2, NR2, NORMAL, 000***** 


1087 


002600 


012737 


004260 


001022 


LT3: 


MOV 


44260, WCS1 


{SET EXPT CS1 


1088 


002606 


012737 


000100 


001024 




MOV 


4100, WCS2 


{SET EXPT CS2 


1089 


002614 


012737 


010600 


001026 




MOV 


410600, WDS 


{SET EXPT DS 


1090 


002622 


012 737 


000000 


001030 




MOV 


40, WER 


{SET EXPT WER 


1091 


002630 


012737 


015311 


000620 




MOV 


4MSL T3,EMA0DR 


{SET HEADER 


1 092 


002636 


012737 


001700 


000774 




MOV 


41700.UDES 


{SET TO NRZ, NORMAL, ODD 


1093 


002644 


005037 


OO100O 




LT3A: 


CLR 


PATRN 


{POINT TO PAT1ERN 


1094 


002650 


012737 


002656 


000710 




MOV 


4LT3B.Sl.0lP 


jSET SCOPE ADDRESS 


1095 


002656 


004 737 


005254 




LT3Bj 


JSR 


PC.UAM2 


jGO DO WRAP 2 


1096 


002662 


00523 7 


00' "00 






INC 


PATRN 


.BUMP POINTER 


109? 


002666 


03273/ 


00 .j4 


001000 




BIT 


v>4,P/URN 


.SEE IF DONE 


1093 


0026 74 


0017/0 








BEQ 


I !3B 


; IF NOT: BR 


109<* 


002676 


004/37 


012150 






JSR 


PC, ITER 


,GU 5H H ITERATIONS 


1100 


002702 


000137 


002214 






JMP 


TSCD2 


j RE TURN TO SCHEDULAR 



C/TLBCO TM03-TL16/TU/7 Cl.1 II 
CZTEBC.PU 06-APR-84 10:31 



N2 



^) 



MACY11 30C1046) 06 -APR -84 10:36 PAGE 26 



SEQ 0036 



1101 


















1102 
1 10^ 












j LOGIC 


TEST 4: WRAP 2, 


PE, NORMAL, ODD**+++ 


i. i. K' *.' 

1104 


002 706 


000240 






LT4; 


NOP 






1105 


002710 


012737 


004260 


001022 


LT4A: 


MOV 


44260, WCS1 


iSET EXPT CS1 


1106 


002716 


012737 


000100 


001024 




MOV 


4100, WCS2 


{SET EXPT CS2 


1107 


002 724 


012737 


010640 


001026 




MOV 


410640, WDS 


{SET EXPT DS 


1108 


002732 


012737 


000000 


001030 




MOV 


40, WER 


{SET EXPT WER 


1109 


002740 


012737 


015357 


000620 




MOV 


4MSLT4,EMADDR 


;SET HEADER 


1U0 


002746 


012737 


002300 


000774 




MOV 


42300, UDES 


{SET PE, NORMAL, ODD 


1111 
1112 

1113 
1114 
1115 


002754 


000137 


002644 






JMP 


LT3A 


;G0 EXECUTE TEST SEQUENCES 












{LOGIC 


TEST 5: WRAP 1, 


NRZ, NORMAL, ODD***** 


002760 


012737 


00 \ 260 


001022 


LT5: 


MOV 


44260. WCS1 


{GET EXPT CS1 


1116 


002/66 


012737 


000110 


001024 




MOV 


4100, WCS2 


{SET EXP1 CS2 


1117 


002774 


012737 


0106' ;• 


001026 




MOV 


410600, WDS 


{SET EXPT DS 


1118 


003002 


012737 


OOOOC ) 


001030 




MOV 


40,WER 


{SET EXPT UER 


1119 


003010 


012737 


01542 \ 


000620 




MOV 


4MSLT5,EMA0DR 


{SET HEADER 


1120 


003016 


012737 


001703 


000774 




MOV 


41700, UDES 


{SET NRZ, NORMAL, ODD 


1121 


r-0*024 


005037 


00 IOC 




LT5A: 


CLR 


PATRN 


{POINT TO PATTERN ZERO 


1122 


005030 


012737 


0030j6 


000710 




MOV 


4LT5B.SC0LP 


;SET SCOPE ADDRESS 


1123 


003036 


004 73/ 


005244 




LT5Bj 


JSR 


PC.WAM1 


;G0 DO WRAP 1 


1124 


003042 


00523/ 


001000 






INC 


PATRN 


;8UMP POINTER 


1125 


003046 


03273/ 


000004 


001000 




BIT 


44, PATRN 


{SEE IF DONE 


1126 


0C3054 


001770 








BEQ 


L.T5B 


; IF NOT : BR 


1127 


003056 


004737 


012150 






JSR 


PC. ITER 


{GO SEE IE ITERATIONS 


1128 
112 f * 


003062 


000137 


002214 






JMP 


TSCD2 


{RETURN TO SCHEDULAR 


1130 
1131 












j LOGIC 


TEST 6: WRAP 1, 


PE. NORMAL, ODD***** 


1132 


003066 


000240 






LT6: 


NOP 






1133 


0030 70 


004737 


011630 




LT6A; 


JSR 


PC.PPGEN 


iGO GENERATE PRE/POSTAMBLE 


1134 


003074 


C12737 


004260 


001022 




MOV 


44260, WCS1 


{SET EXPT CS1 


1135 


003102 


012737 


000100 


001024 




MOV 


4100. UCS2 


{SET EXPT CS2 


1 1 36 


003110 


012737 


010640 


001026 




MOV 


4 10640, WDS 


{SET EXPT OS 


1 137 


003116 


012737 


000000 


001030 




MOV 


40.WER 


{SET EXPT WER 


1138 


003124 


012737 


015472 


000620 




MOV 


4MSt.Tt).f.MADDR 


{SET HEADER 


113<* 


003132 


012737 


002300 


000774 




MOV 


42300, UDES 


{SET PE. NORMAl , ODD 


1140 


003140 


000137 


003024 






JMP 


LISA 


jGO EXECUTE TEST SEQUENCE 



c/ rtBco 


TM V >5 U lb !U.\* 


Ci T II 


HACU1 


30( 1046) 


06 APR 


-84 10 {36 PA(U- 


2 7 


CZU.BC. 


Pll Ob APR 64 


10j31 












1141 
1142 
1 14 5 












ll.OdlC 


RST 7; URAP ( 


NR/, NORMAL, MOD***** 


1144 


005144 


012757 


144260 


001022 


LT7{ 


MOV 


0144260, WCS1 


{SET EXPT CSl 


1145 


003152 


012/37 


000100 


001024 




MOV 


0100, UCS2 


iSET EXPT CS2 


114b 


005160 


012737 


150600 


00102b 




MOV 


0150600, WDS 


{SET EXPT OS 


114? 


005166 


012737 


000200 


001030 




MOV 


0200, UER 


{SET EXPT F.R 


1148 


003174 


012737 


015537 


000620 




MOV 


0MSLT7.EMADDR 


iSET HEADFR 


1149 


003202 


012737 


001700 


000 7 74 




MOV 


01700.UOES 


{SET NR7, NORMAL, ODD 


uso 


003210 


00503 7 


001000 




L T7A: 


CLR 


PATRN 


{POINT TO PATTERN 


1151 


003214 


012:37 


003222 


000 710 




MOV 


0LT7B.SC0LP 


I'A T SCOPE ADDRESS 


U52 


003222 


004 737 


005200 




t T7Bj 


JSR 


PC.WAMO 


j GO DO WRAP 


1155 


00322b 


00523 7 


001000 






LNC 


PATRN 


{BUMP POINTER 


1154 


003232 


032 'ST 


000004 


001000 




BIT 


04, PATRN 


» SEE IF DONE 


1155 


003240 


0017 70 








BFQ 


I.T7B 


j IF NOT; BR 


115b 


003242 


004 73 7 


012150 






JSR 


PC.ITER 


{GO SEE V HERAT IONS 


115* 
1 1 5H 


00324b 


000137 


002214 






JMP 


TSCD2 


(RETURN TO SCHFOU AR 


11S«> 

11 bO 

llbl 












;l OUIL 


TEST 10s WRAP 0, 


PE, NORMAL, ODD***** 


003252 


0002*0 






I T 10: 


NOP 






Ub2 


003254 


012737 


004260 


001022 


LT10A; 


MOV 


04260, WCS1 


{SET EXPT CS1 


11*5 


003262 


012 73 7 


000100 


001024 




MOV 


0100, WCS2 


jSET EXPT CS2 


11M 


0032 *0 


012737 


010640 


001026 




MOV 


010640, WDS 


{SET EXPT DS 


:it,5 


00327b 


012/37 


000000 


001050 




MOV 


00,WER 


{SIT EXPT EM 


116b 


0C3304 


01275' 


015605 


000620 




MQV 


OMSL TlO.tMAODR 


{SET HEADER 


lib * 


00?512 


012**7 


002300 


000774 




MOV 


O2300»UQES 


{St T Pt , NORMAl , ODD 


uw 


003320 


000137 


003210 






JMP 


LT'/A 


iGQ EXECUTE TEST SEQUE 



SEQ 0027 



/ 



cm nico 


i no 5 n 


16 H'/.' 


CM 11 


MflCUl 


301 1046) 


06 API 


84 10; 36 PAUL i 


?H 


i/n-oc. 


Pll 06 -APR 84 


10 5 31 












I Io*> 

I I 'O 












it ot;ic 


TEST 11: CORfc DUMP WRITE, UAM?******« 


003324 


01273: 


004260 


001022 


I Tilt 


NOV 


04260, WC SI 


SET EXPT CS1 


ii\7 


003352 


012737 


000100 


001024 




MOV 


0100, WCS2 


SET EXPT CS2 


ll.'S 


003340 


012737 


010600 


001026 




MOV 


10600, WDS 


SET EXPT DS 


1 1 M 


003346 


012737 


000000 


001030 




MOV 


00,WER 


SET EXPT ER 


1175 


003354 


012737 


015653 


000620 




MOV 


OMSLTIUEMADOR 


SET HEADER 


li ^ 


003362 


012737 


001720 


0007 74 




MOV 


01720, UDES 


SET NRZ, CORE DUMP, 


ir: 


003370 


005037 


001000 






CLR 


PATRN 


POINT TO PATTERN 


1178 


003374 


012737 


003402 


ooo no 




MOV 


0LT11A.SC0LP 


SET SCOPE ADDRESS 


nrg 


003402 


004 737 


005254 




LTUA: 


JSR 


PC,UAM2 


GO DO WAM 2 


1180 


003406 


022737 


000002 


00 l 000 




CMP 


02, PATRN 


SEE IF DONE 


1181 


003414 


001404 








BEQ 


L.T11X 


IF SO; BR 


118/ 


0034 L6 


012737 


000002 


001000 




MOV 


02, PATRN 


SELECT PATTERN 2 


118? 


003424 


000766 








BR 


LTUA 


CONTINUE 


1134 


003426 


004737 


012150 




LTllXi 


JSR 


PC, ITER 


GO SEE IF ITERATIONS 


1185 

1186 
118.' 
1 188 


003432 


000137 


002214 






JMP 


TSCD2 


RETURN TO SCHfDi'll S 












lLOGIC 


TEST 12; CORE DUMP READ. WAM 3***** 


A 4 ^* w 

1189 


003436 


012737 


004270 


001022 


LU2: 


MOV 


04270, WCS1 


SET EXPT CS1 


1190 


003444 


012737 


000100 


001024 




MOV 


0100, WCS2 


SET EXPT CS2 


1191 


003452 


012737 


010600 


001026 




MOV 


010600, WOS 


SET EXPT OS 


119c 1 


003460 


012737 


000000 


001030 




MCV 


OO.UER 


SET EXPT ER 


1195 


003466 


012737 


015724 


000620 




MOV 


0MSLT12.EMADDR 


SET HEADER 


1194 


0034 74 


012737 


001720 


0007 74 




MOV 


01720.UOES 


SELECT NR/, CORE DUM 


1195 


003502 


005037 


001000 






ClR 


PATRN 


SELECT PATTERN 


1196 


003506 


012737 


003522 


000710 




MOV 


0LT12A.SC0LP 


SET SCOPE ADDRESS 


1197 


003514 


012737 


001054 


001006 




MOV 


OWCOPO.RCDP 


POINT TO PATTERN 


1198 


003522 


004 737 


005320 




LT12A: 


JSR 


PC.WAM3 


GO DO WAM3 


119Q 


003526 


022757 


000002 


001000 




CMP 


02, PATRN 


SEE IF DONE 


1200 


003534 


001407 








BEQ 


LT12X 


If SO; BR 


1/01 


003536 


012737 


000002 


001000 




MOV 


02. PATRN 


SELECT PATTERN 2 


1202 


003544 


012737 


001042 


001006 




MOV 


OWCOP2,RC0P 


POINT U) PATTERN 2 


120* 


003552 


000 763 








BR 


LT12A j 


CONTINUE 


1.704 


003554 


004 7 3 7 


012150 




LT12X: 


JSR 


PC. HER 


GO SEE IF 1 I ERA T ION 


1205 


003560 


000X37 


002214 






JMP 


TSCD2 


RETURN TO SCHEDULE 



SEQ 002*5 



ODD 



ODD 



lVU kco 


!M03 It 


lb H'/.' 


CM 11 


MAO 1 1 


C/TtRC, 


PI 1 06 APR t<4 


10:31 




1AH> 










KV * 










i203 










120* 


003564 


012 737 


004260 


001022 


1210 


003572 


012737 


000100 


001024 


1211 


003b00 


012737 


010600 


001026 


h'i: 


003606 


012737 


000000 


001030 


1213 


003614 


012737 


015774 


000620 


LM4 


003h22 


012737 


001710 


000 7 74 


1215 
i2it> 
121: 

121* 


003630 


000137 


003024 




003634 


01273 7 


144260 


001022 


1220 


003e>42 


012737 


000100 


001024 


1 -> -M 


003650 


012737 


150600 


001026 




00365b 


012737 


000200 


001030 


1223 


003664 


012737 


016055 


000620 


1224 


0036^2 


012737 


001710 


000774 


1225 
1226 
122 7 

122s 
122* 


003700 


000137 


003210 




003 704 


012737 


0042 76 


001022 


1230 


003712 


012737 


000100 


001024 


1231 


003:20 


012737 


010640 


001026 


1232 


003726 


012737 


000000 


001030 


1233 


003734 


012737 


016134 


000620 


1234 


003 742 


012737 


002300 


000774 


1235 


003 750 


000240 






1236 


003 752 


000240 






123" 


003754 


012737 


000001 


001004 


:.'3? 


003762 


000137 


002460 




1239 











[) 



/ 



30C1046) 06 APR 84 10; 36 PACil 2<* 



SEQ 0029 



llOlilC TEST 13: FVEN PARITY WRITE: WAM 1( M8933 )*♦*♦ ♦ 



L.U3: 



MOV 04260, WC SI : SET 

MOV 0100, WCS2 j SET 

MOV 010600, WDS {SET 

MOV 0O.WER ,SET 

MOV 0MSL U3,EMADDR j SET 

MOV 01710. UDES jSFT 

JMP I.T5A ; GO 



EXPT 
EXPT 
EXPT 
EXPT 



CS1 



CS2 

DS 

ER 
HEADER 
NRZ, NORMAL 
EXECUTF WAM 



EVEN 



{LOGIC TEST 14j EVEN PARITY READ: WAM 0CM8933 M8*H4 )♦♦♦♦♦ 



LT 14: 



MOV 0144260, WCS1 j St T 

MOV 0100, WCS2 1 SET 

MOV 0150600, WDS {SET 

MOV 0200, WE R 1 SET 

MOV 0MSL U4,EMADDR {SET 

MOV 01710, UDF.S iSET 

JMP LT7A {GO 



EXPT CS1 
EXPT CSP 
EXPT OS 
EXPT ER 
HEADER 
NR/, NORMAL 
DO WAM 



EVEN 



{LOGIC TEST 15: READ REVERSE: WAM 3( M8906)* ♦♦♦♦ 



LT15 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
NOP 
NOP 
MOV 
JMP 



04276, WCS1 

0100, WCS2 

010* 10, WDS 

0O,W6R 

0MSI T15,EMAD0R 

02300, UDF.S 



01 RURVE 
LT1A 



iSET 
{SET 
{SET 
{SET 
{SET 



CS1 



EXPT 

EXPT CS 

EXPT DS 

EXPT £R 

HEADER 



{SELECT PE, NORMAL .ODD 



;SET READ REVfcRSE H AG 
{GO 00 WAM 3, REVERSE 



c/rtnco 


TM0S-n.lt> TU.V 


CM II 


MACU1 


CZTtBC. 


Pll Ob -APR -34 


I0j31 




1240 
1,141 










1242 










LM3 










KM 4 










1J45 










124^ 










US* 










1 M8 










124^ 










1250 










125 1 










1252 










1255 










1254 










1255 










125*: 










125 7 










1258 










1259 










1260 


003 76 to 


005037 


001000 




1261 


003772 


012737 


000401 


004 344 


126 J 


004000 


012 73 7 


016201 


000620 


1265 


004006 


012737 


004014 


000710 


1264 










1265 


004014 


012737 


144260 


001022 


1266 


004022 


012737 


000100 


001024 


126" 7 


004030 


012737 


150600 


001026 


1266 


004036 


012737 


000200 


001030 


1269 


004044 


012737 


001700 


000774 


1370 










1271 


004052 


005037 


001020 




1272 


004056 


004 737 


005200 




12'?* 


004062 


012737 


000001 


001020 


1*2 74 
12 75 


004070 


013737 


017744 


004 346 


12 76 


004076 


013737 


004 346 


004 350 


127: 


004104 


013737 


004 344 


004 352 


1278 


004112 


043737 


004344 


004 350 


12 7 


004120 


043737 


004 346 


004 352 


1280 


004126 


053737 


004352 


004 350 


* ""5 fi ' 

x r. O t 


004134 


013737 


004350 


004346 


1232 










1285 


004142 


012737 


144260 


001022 


1284 


004150 


012737 


000110 


001024 


12*5 


004156 


012737 


150600 


001026 


1286 


004164 


012737 


100300 


001030 


128 7 


004172 


004737 


005426 




1288 


0041 76 


000240 






1289 


004200 


012737 


000001 


001004 


1290 


004206 


012737 


144276 


001022 


1291 


00421 4 


012737 


000110 


001024 


129 t > 


004222 


012737 


150600 


00102*. 


12'-*^ 


004230 


012737 


001000 


00103Q 


1.-94 


004^6 


004 7 ', ' 


005320 




12% 


GQ4242 


Q00240 







MACU1 30(1046) 06-APR-84 I0j36 PAGE 30 



SfcQ 0030 



LT16: 



LT16A 



iXOR 



{LOGIC TEST 16: CRC CORRECTION -SINGLE TRACK, EVERY FRAME 

{THIS TS A TEST OF THE CRC CORRECTION LOGIC. THE TEST 

|A KNOWN PATTERN CALL l'S , ALL 0*5 6 125252) WITH A DATA HIT 

I ALTERED IN EACH OF THE DATA TRACKS, THIS TEST INSURES THAT A 

iCRC CORRECTABLE ERROR IS CORRECTED. 

j THE TEST PROCEEDS AS FOLLOWS: 

STEP A WRITE A KNOWN PATTERN USING WRAP AROUND MOOE 

STEP B REWRITE THE PATTERN A30VE WITH DATA BIT(S) MODIFIED 

IN TRACKS SPECIFIED BY CRCPAT USING WRAP AROUND MODE 4 
THIS WILL GENERATE A CRC ERROR 

STEP C EXECUTE A READ REVERSE USING WRAP AROUND MODE 3 

STEP D REPEAT STEP B ABOVE. UPON COMPLETION THE DATA READ 
BACK WILL MATCH THE DATA WRITTEN IN STEP A. 



{SELECT PATTERN (All l'S) 
»SELECT BITS TO BE ALTERED (TRACK 1) 
{SET ERROR MESSAGE HEADER 
{SET SCOPE LOOP 

{SET EXPECTED VALUES UPON CUMPIFHON 



{SET UNIT DESCRIPTION -NRZ.800BPI, ODD 

j PAR IT1 ft PDP11 NORMAL MODE 

iCIEAR CRC CORRECTION MAG 

{DO A WRAP --- STEP A 

{SET CRC ERROR CORRECTION IN PROGRESS 

{GET DATA WRITTEN Rt WRAP 

{GET DATA TO BE MODIFIED 

{GET MOD If IER 

{CLEAR SET BITS IN DATA TO BE MOD If If P 

{CLEAR SETTING BITS 

{SET CLEAR BITS IN DATA TO BE MODI* IED 

{RESTORE MODIFIED DATA 

{SET EXPECTED VALUES UPON COMPLETION 
{OF WRAP 4 



CLR 


PATRN 


MOV 


0401, CRCPAT 


MOV 


OMSLT16,EMA0DR 


MOV 


OLU6A.SC01.P 


: MOV 


0144260, WCS1 


MOV 


0100, WCS2 


MOV 


0150600. WDS 


MOV 


0200. WER 


MOV 


01700.UDES 


CLR 


CRCFLG 


JSR 


PC.WAMO 


MOV 


• l.CRCt'LG 


MOV 


WBUFF.CRCDAT 


CRCPAT 


WITH CRCDAT 


MOV 


CRCDAT.XOROAT 


MOV 


CRCPAT , XORPAT 


BIC 


CRCPAT, XORDAT 


BIC 


CRCDAT, XORPAT 


BIS 


XORPAT, XORDAT 


MOV 


XORDAT, CRCDAT 


MOV 


0144260, WCS1 


MOV 


0110,WCS2 


MOV 


<> 150600. WD > 


MOV 


*?100300,WER 


JSR 


PC.WAM4 


NOP 




MOV 


Ol.HDRVF 


MOv 


01442 76.WCS1 


MOV 


0110, WCS2 


MOV 


01 50600, wD-S 


MOV 


01000.WLH 


,1'jM 


PCiWAMS 


NOP 





{DO A WRAP 4 



STEP B 



{SET TO READ RE.VERSF 

;SEI EXPECTED VALUES UPON COMPLETION 



jUO A WRAP 3 



bTEP C 



I- 3 



C/Tt.HCO 


IM03-Tt.lb.-Ki.'; 


CI 1 11 


NACYll 


30(1046) 06 APR 


-84 10:36 


CZTF.BC. 


PI 1 06 -APR -84 


10:31 










i;?*t» 


004244 


012/37 


004260 


001022 




MOV 


04260, WCS1 


12*7 


004252 


012737 


000110 


001024 




MOV 


ffllO.WCSP 


1?S>8 


004260 


012737 


010600 


001026 




MOV 


010600, WDS 


12** 


004266 


012737 


000000 


001030 




MOV 


OO.WER 


1300 


004274 


005037 


001020 






CLR 


CRCFLG 


1301 


004300 


004 737 


005426 






JSR 


PC. WAM4 


1302 
















130? 


004304 


00633 7 


004 344 






ASL 


CRCPAT 


1304 


004310 


103241 








BCC 


LT16A 


1305 


004312 


012737 


000401 


004344 




MOV 


0401,'JRCPAT 


130b 


004320 


005237 


001000 






INC 


PATRN 


1307 


004324 


022737 


000003 


001000 




CMP 


43.PPTRN 


1306 


004 332 


001230 








BNF 


LT16>. 


1300 


004 334 


00473? 


012150 






J5R 


PC, ITER 


1310 

1311 


004340 


000137 


002214 






JMP 


TSCD2 


1312 
1313 


004344 


000000 






CRCPAT 


.WORO 





1314 


004346 


000000 






CRCOAT 


.WORD 





1315 


004350 


000000 






XORDAT 


.WORD 





131b 


004352 


000000 






XQRPAT 


.WORD 





1317 

















PAGE 31 



SEQ 0031 



{CLEAR CRC CORRECTION IN PROGRESS FLAG 
;G0 TO WRAP 4 -- - STEP D 

I SELECT NEXT TRACK TO BE ALTERED 
{CONTINUE FOR ALL TRACKS 
{RESET BITS TO TRACK 1 
{SELECT NEXT PATTERN 
{BRANCH IF NOT DONE 

{ITERATION LOOP 
{RETURN TO SCHEDULER 



{CONTAINS BITS TO BE ALTERED 
{CONTAINS DATA TO BE WRITTEN BY WRAPA 
{TEMPRARl STORAGE FOR XOR 
jTEMPOARY STORAGE FOR XOR 



C/TtBCO IN03 

cztlbc.pii 



1318 
1319 

1 320 
1321 
132? 
13.73 
1 324 
1325 
1326 
1327 
1328 



H u» lu:*.* en II 

Ob -APR -34 10:31 



MACUl 30(1046) 06 -APR -84 10}36 PAGE 3? 



1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1336 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
134o 
134 7 
1348 
134') 
1350 
1351 

135:? 

1353 
1354 

1355 
1356 
1357 
1358 
1559 
1360 
1361 
1 3*2 
1563 



004 354 
00436? 
004 3/0 
004 376 
004404 
00441? 
004420 
004426 
004434 
004442 
004446 
004452 
004454 
004462 
004470 
004476 
004504 
004512 
004520 
004526 
004532 
004534 
004542 
004550 
004556 
004564 
004572 
004576 
004600 
004606 
004614 
004622 
0046 30 
004634 
004640 
004644 
004650 
004654 
004656 
00466c> 



012737 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
00503 7 
004737 
000240 
012737 
013737 
043/37 
012737 
012737 
012737 
012737 
004737 
000240 
012737 
012737 
012737 
012737 
012737 
004737 
000240 
012737 
012737 
012737 
012737 
00503 7 
013701 
012703 
004 7 37 
004737 
000240 
004 737 
000137 



000002 
001001 
016271 
004404 
144260 
000100 
150600 
000200 
001700 
001020 
005200 

000002 
017744 
004344 
144260 
000110 
150600 
100300 
005426 

000001 
144276 
000110 
150600 
001000 
005320 

144260 
000110 
150600 
1C0100 
001020 
004 346 
017744 
005144 
005426 

012150 
002214 



SEQ 0032 



001000 
004 344 
000620 
000710 
001022 
001024 
001026 
001030 
000774 



001020 
004346 
004346 
001022 
001024 
001026 
001030 



001004 
001022 
001024 
001026 
001030 



00102? 
001024 
001026 
001030 



LOGIC TEST 17 : CRC CORRECTION • MULTIPLE BAD TRACKS 

THIS TEST CHECKS THAT CRC ERROR CORRECTION IS NOT PERFORMED WHEN 

MULTIPLE BAD TRACKS ARE DETECTED. 



L.T17: 



LT17A 



MOV 


02.PATRN 


MOV 


01001, CRCPAT 


MOV 


0MSLT17,EMADDR 


MOV 


OLT17A.SC0LP 


MOV 


#144260, WCS1 


MOV 


0100, WCS2 


MOV 


4150600, WDS 


MOV 


$200, WER 


MOV 


#1700, UDES 


CLR 


CRCFLG 


JSR 


PC.WAMO 


NOP 




MOV 


02.CRCFLG 


MOV 


WBUFF.CRCDAT 


BIC 


CRCPAT.CRCDAr 


MOV 


0144260, WCSl 


MOV 


0110, WCS2 


MOV 


0150600, WDS 


MOV 


0100300, WER 


JSR 


PC.WAM4 


NOP 




MOV 


Ol.RDRVr 


MOV 


0144276, WCS1 


MOV 


OHO. wes? 


MOV 


0150600, WDS 


MOV 


01000, WER 


JSR 


PC, W AM 5 


NOP 




MOV 


144260. WCS1 


MOV 


0110, WCS2 


MOV 


01 50600, WDS 


MOV 


0100100, WER 


CLR 


CRCFLG 


MOV 


CRCDAT.Rl 


MOV 


OWBUM' ,R3 


JSR 


PC.DAT1A 


JSR 


PC.WAM4 


NOP 




JSR 


PC, ITER 


JMP 


T'>Cl>? 



{SELECT PATTERN 02 (125125) 

{SELECT 2 BAD TRACKS 

tSET ERROR MESSAGE HEADER 

iSET SCOPE LOOP ADDRESS 

,SET EXPECTED VALUES ON COMPLETION 

jOF WRAP BELOW 



{SET UNIT DESCRIPTION 
{SET CRC CORRECTION NOT 
; DO A WRAP STEP A 



IN PROGRESS 



{SET CRC CORRECTION IN PROGRESS 

{GET DATA TO BE WRITTEN 

{MODIFY DATA TO BE WRITTEN 

I SET EXPECTED VALUES ON COMPLETION 

;0F WRAP 4 BELOW 



DO A WRAP 4 



STEP R 



SET READ REVERSE HAG 

SET EXPECTED VALUES ON COMPLETION 

OF WRAP 3 BELOW 



i DO A WRAP 3 



TEP C 



;SET [ XPECMD VALUES 
jOF WRAP 4 Bfcl.OU 



ON COMPLETION 



j CHAR CRC IN PROGRESS HAG 

{GET DATA THAT WAS WRITTEN IN STEP B 

{SET START OF WRITE BUFFER 

{GO SET WRITE BUFFER 

{GO DO A WRAP 4 - • ■ -"iTfiP D 

{ITERATE TEST 

I W. TURN TO SCHEDULER 



u / 



C/IrBCO 


I MO 3 TE 


lb IU/7 


Cl.T II 


MrtCUl 


C/TfcttC. 


Pll Ob -APR -84 


10:31 




1 5i>4 










13b5 










i:^t> 










13^: 










1568 










13b* 


004obb 


005037 


001000 




13 70 


00467? 


012737 


144276 


001022 


1371 


004 700 


01cT/37 


000 iOO 


001024 


137 J 


004 706 


012737 


150600 


001026 


1373 


004 714 


012737 


100000 


001030 


1374 


i>04 72? 


012737 


016355 


000620 


13. '5 


004 750 


01? 73 7 


001700 


000774 


137o 


004 /5b 


01273 7 


004 744 


000/10 


13;: 


004 744 


012737 


000001 


001004 


1378 


004 752 


012737 


000001 


0010X6 


13"4 


004 760 


004 737 


005320 




1 380 


004 764 


005037 


001004 




1381 


004 7 70 


00503 7 


00101b 




1 582 


004 7 M 


004 73 7 


012150 




138 3 


005000 


000137 


002214 




1384 
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;10G1C TEST 20; READ REVERSE ,NRZ , WRAP 3 
I THIS TEST TESTS THAT A CRC ERROR OCCURS 
jWRAP AROUND MODE 3 IN NRZ MODE 



SEQ 0033 



AFTER A READ REVERSE USING 



L.T20: CLR PATRN 

MOV ^144276, WCSl 

MOV 0100, WCS2 

MOV 4150600, WD5 

MOV O100000.WER 

MOV *MSLT20,EMADDR 

MOV #1700, UDES 

MOV t>[ T20A.SCOLP 

LT2QA; MOV Ol.RDRVF 

MOV 01.DCHKFL 

JSR PC.UAM3 

CLR RDRVE 

CI R DCHKh I 

JSR PC .ITER 

JMP TSCD2 



{SET 
{SET 



{SET 
;SET 
,SE7 
»SET 
|S 



ET 



PATTERN l> (ALL 1*5) 
EXPECTED VALUES ON COMPLETION 



ERROR MESSAGE ADDRFSS 

UNIT DESCRIPTION 

SCOPE LOOP ADDRFSS 

READ REVERSE FLAG 

DATA CHECK FLAG TO NUT CHACK DATA 



{CLEAR READ REVERSE f I AG 
{CLEAR DATA CHECK Y\ AG 

j RE TURN TO SCHEDULER 



J 



s 



C.'URCO IM03-TI 16 10/.' Cl . ! II 
CZTERC.PU Ob -APR 84 10:51 



1 38 S 

I38t> 

1 38 •■ 

1388 

1 38^ 

1 3^0 

13^1 

139? 

13*5 

1 3**4 

1 395 

1396 

139 7 

1 398 

.1 399 

1400 

1401 

140? 

1403 

1404 

140S 

1406 

1407 

1408 
I40O 

1410 
1411 
141*? 
1413 
1414 
141S 
1416 
141/ 

1418 
1419 

14?0 

1421 
14?? 

14?3 

1424 

1425 

14 26 
14^?/ 
1428 
1429 

1430 
1431 
143? 
14 3 f , 
14 34 
143', 
1 4 3<, 
14'. " 
14*. 8 
14<'i 
1440 
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S£U 0054 



005004 

0050 10 

00501;? 

005020 
00502? 
005026 
005032 
005036 
005042 
005046 
005052 
005056 
005062 
005066 
005074 
005102 
005106 
005112 
005114 
005120 
005124 
005130 
005132 
005134 
005136 



005140 
005144 
005150 
005152 
005154 
005156 



005] '.0 

00516? 



00573; 
0014 34 
0327 7 7 
001430 
012 704 
00473/ 
013703 
004737 
012705 
01.2701 
012702 
012703 

004 737 
112737 
113737 
012703 
013/01 
006301 
004771 
012702 
012/01 
005021 

005 30? 
001375 
000207 



012 701 
012/0? 
010123 
00530? 
0013/5 
00020 7 



O05001 

000/70 



000736 

000100 173550 

017064 
013154 

001000 

013366 

001000 

000002 

000003 

000000 

01263? 

000001 000/7/ 

001000 0007/6 

017744 

001000 

001032 
000202 
020356 



17//// 
000202 



DATA SETUP ROUTINE: 

THIS ROUTINE 15 USED TO GENERATE THE DATA PATTERNS 



THE PATTERN 
PATRN "0 
■I 
-2 

*3 



TO RE WRITTEN IS SPECIFIED BY; 
ALL 1'G 
ALL O'S 

ALTERNATE l'S £ O'S C 125125) 
ALTERNATING PARITY (17 737 7) 



♦ ♦♦♦^♦♦.♦♦♦♦♦♦A4,4*4,4 + + * 4, * + ♦**♦***** + ***♦♦♦♦ + *******+* + 



DSUP: 


TST 


STFLG 


SEE IF SINGLE TEST 




BEQ 


DSO 


IE NOT: BR 




RIT 


noo.aswR 


SEE IE SELECT PATTERN 




BEQ 


DSO 


IE NOT: BR 




MOV 


4WMSC3.R4 






JSR 


PC.TTOUT 


REQUEST PATTERN NUMBER 




MOV 


PATRN, R3 






JSR 


PC.OlTP 


PRINT PATTERN NUMBER 




MOV 


0PATRN.R5 


GET ADDRESS OF PATRN ENTRY 




MOV 


0? t ni 


SET SIZE OF ENTRY 




MOV 


$3,R2 


SET UPPER LIMIT 




MOV 


0O.R3 


SET LOWER LIMIT 




JSR 


PC.TTR 


GO GET PATTERN NUMBER 




MOVB 


01,UPGEL*1 


SET FLAG 




MOVB 


PATRN, UPGR. 


SET PATTERN NUMBER 


D50: 


MOV 


0WBUET.R3 


R3 « ADDRS OE WRITE BUEEER 




MOV 


PATRN, Rl 


Rl - PATTERN SELECTOR 




ASL 


Ri 


MAKE PATTERN SELECTOR EVEN 




JSR 


PC.SOMRl (Rl) 


GO GENERATE PATTERN 


DS3: 


MOV 


0202, R? 


R?'BUEFER SI/E ♦? 




MOV 


dRRUt-K.Rl 


Rl Rt AD DATA START 


DS4 : 


CLR 


CR1)» 


CLEAR RUFF FR 




DEC 


R? 


SI t IF DONE ALL 




RNE 


DS4 


IF NOT: BR 




RTS 


PC 


EXIT 




(ALL 


ONES* * + + * + * *♦* 




DATl: 


MOV 


<i 1.R1 


Ht'DATM 


DATlAs 


MOV 


<;?0?,R? 


R? WORD COUNT ♦ ? 


li: 


MOV 


Rl.IRS). 


LOAD BUM ER 




DEC 


R? 


SEE [F DONE 




RNE 


1* 


IF NOT : BR 




R1S 


^ 


RETURN TO CALLER 




;Al I 


ZERO 1 *** ♦ ♦♦♦♦+♦ 




DAT?: 


Cl R 


Rl 


Rl -DATA 




RR 


DAT1A 


i OAD RU> \ I R 



005164 012/01 lr?Mi J 5 



j ONE /ZERO IN .UUHNATlNli CHARACM HS*****#**** 
DAT3- MOV 0125 125, Rl ,R1 DATA 



J '. 

C/Tl-.HCO TMOS TLlo TU// a.I I! MACU1 30(1046) Of. -APR -84 10:36 PAGB 35 

CZTLBC.P11 06 APR 84 10:31 stQ 00 ^ 

1441 005170 000 765 BR DAT1A {LOAD GUFFF.R 

144/ 

1445 (Al.ItRNATING PARITY CHARACTERS********* 

1444 

1445 00S1.V 01.-701 177377 DAT4: MOV #l7/3/7 # Rl ;R1 «Al. I LRNA [ LN(> PARITY DATA 

144^ 00517b 000762 8R DAT1A ;G0 LOAD BUFFER 

144 7 



C/1EBC0 IM03-FE16 U»,\' Cl. I 1J 
C/TEBC.P11 06 -APR -84 10:51 



MACY11 30(1046) 06 APR -84 



l< '' 
L0{36 PAGE 



36 



SEU 0036 



1448 
144^ 
1450 
1451 
1452 
14?? 
1454 
1455 
1456 

145; 

1458 
145*1 
14^0 
1461 
14e»2 

i4r,:< 

14^4 
1465 

1466 
1467 
1468 
146^ 
14 70 
14/1 
14 72 
14 73 
1474 
1475 
14 /o 
14 7 7 
1^ 78 
14 7Q 
1480 
1481 
148? 
148 3 
1484 
1485 
1486 
148/ 
14 88 

146'* 
14')0 
14'>1 
144J 
1493 
1444 
14 l >5 
14**6 

14':>/ 

1498 
14'-»<* 
1500 



005200 
005206 
005214 
005220 
005226 
005234 
005240 



005244 
005252 



005254 
005262 
005270 
005274 
005302 
005310 
005314 



005320 

005326 
005334 
00 5 34 2 
005350 
005354 
005356 
005364 
005372 
005400 
00540b 
0054 U) 
005416 
005*22 



005426 
0054 34 
005442 
005446 
005054 
005462 
005466 



012737 
012737 

005037 
012/37 
012/37 

004737 
000137 



012737 
012/37 
005037 
012737 
012737 
004 737 
000137 



012737 
01273/ 
012737 
012/37 
005 73/ 
001411 
062737 
062737 
012/37 
032737 
001403 
013737 
004 73/ 
000137 



012/3/ 
012 737 

00503/ 
012737 
012 737 

004/3/ 
00013/ 



000006 
000060 
000752 
017744 
020356 
0054 72 
006052 



000/46 
000 750 

000/56 
000760 



000012 
000060 
000 752 
Oi7744 
020356 
0054 72 



000014 
0000 70 
020356 
01/744 
001004 

0003/6 
00037 7 
0000/6 
000020 

001006 
0054 72 
006032 



C00030 
000060 
000752 
004346 
020356 
0054 72 
006052 



000746 
000/50 

000/56 
000760 



000746 
000750 
000 756 
000754 



000/56 
000 754 
000 750 
000/74 

000/54 



000/46 

000/50 

000/56 
000 7bO 



WAMO : 
WAM01 



012/37 000010 000746 WAM1 : 
000755 



WAM2 



WAM3t 



WAM3A: 



WAM3B: 



WAM4 



jWRAP AROUND MODE GLOBAL***** 



MOV 06 , WAM 

MOV 060, FUN 

CLR OATC 

MOV 0WBUFF.DATAO 

MOV 0RBUFF.RDAD 

JSR PC, SETUP 

JMP EXEC 



j SET WAM NUMBER 



iSFT BUFFER ADDRESS 

{SET POINTER TO READ BUFFER 

j GO SET UP 



jWRAP AROUND MODE 1 WRITE BUFFER********* ♦ 



MOV 
BR 



* 10. WAM 
UAM01 



jWRAP AROUND MOOE 2 BIT FIDDLER WRI TE**** **♦+ *♦ 



MOV 
MOV 
CLR 
MOV 
MOV 
WAM2A: JSR 
JMP 



012, WAM 
060, FUN 

DATC 

0WBUf"F,DATAD 
0RBUFF.RDAD 
PC, SETUP 
EXEC 



iWRAP AROUND MODE 3 BIT FIDDLER READ******** ♦♦ 



MOV 014, WAM 

MOV 70. FUN 

MOV 0RBUr-K , DAT AD 

MOV 0WBUF*- ,WTAD 

TST RDRVF 

BEQ WAM3A 

ADD 03 76, DA TAD 

ADD 03 7 7, W IAD 

MOV 076, FUN 

bit 02o,udes 

beq wam 'so 

mov rcdp.wiad 

jsr pc, setup 

jmp exec 

;wrap around modi 4 crc 

jCAl I : JSR PC WAM4 



{SET WAM NUMBER 

; SET FUNCTION 

;5E r BUFFER ADDRESS 

jSET POINTER TO WRITE 



BUFFER 



MOV 


.*/3(.\WAM 


MOV 


060, FUN 


Cl R 


DATC 


MOV 


OCR CD A! .DA TAD 


MOV 


0RBUF l .HOAD 


JSR 


PC. SETUP 


JMP 


EXEC 



j SET READ REVERSE CODE 



j GO SET UP 
j GO EXE CU IN- 
CORRECT ION 



j St I MAINTENANCE MODE FUNCTION * WRAP 4 
l SET TAPE FUNCTION WRITE FWD 

SE T ADRS OF WRI Tt HUf I \ H 
SE T RE AO BUFFER ADDRESS 
uu 51 TUP REGIS H.U-, 
I GO EXECUTE 



/ 



cm.RCo iM03-Tfit» ru// a t n 
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HACYU 30(1046) 06 APR -84 10:36 
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1501 
1502 
1503 
1504 
1505 
1536 
150/ 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
lfitt 
1519 
1520 
15? 1 
1522 
1523 
1524 
1525 
1526 
152 7 
1528 
1529 
1550 
1531 
1532 
1533 
1534 
1535 
1536 
153/ 
1538 
1539 
1540 
1541 
1542 

154 3 
1544 
1545 
1546 
154/ 
1!>48 
1549 
1550 
1551 
1552 

155 3 
1554 
1555 
1556 



005172 
0054 ,'6 
005500 
00550b 
005510 
005516 
005520 
005524 
005526 
005532 
005534 
005540 

005544 
005552 
005560 
005562 
00 r >570 
005576 
005604 
00561? 
005614 
005622 
005624 
005630 
005654 
005642 
005644 
005646 
005652 
005660 
005662 
0056 70 
005676 
005702 
005710 
005714 
005/16 
005/22 
005 724 
005 7 30 
005/36 
005740 
005/44 
005 /52 
005 /60 
005 76* 
005/74 
006002 
006010 
00601? 
00<S014 
00*-.O16 
006024 



005/3/ 
001004 
02273/ 
001004 
012777 
00041? 
005737 
001403 
005/37 
001002 
004 73 7 
004737 

012777 
052737 
001405 
012777 
A 2777 
013777 
032"77 
001417 
0327 7/ 
001004 
012704 
004 73/ 
03277/ 
001401 
000000 
000137 
022737 
001031 
117737 
042737 
00033/ 
052737 
00573 7 
001403 
005337 
000410 
005237 
05273 7 
001402 
00523 7 
05377/ 
052 / / 7 
053777 
0537// 
013/// 
032/?/ 
001002 
000240 
00020 / 
327/ ' 
001004 



001020 
000030 
000011 
000736 
000/76 

005004 

012220 

177400 
000020 

17 7000 

177600 
000756 
010000 



017105 
013154 
100000 



005540 
000014 

173066 

17 7400 
000 752 
00020C 
001004 

000754 

000 754 

000020 

000754 
000 7 74 
000001 
000/4*. 
COO 752 
000 750 
040000 



SEQ 0057 



SETUP 
000 746 
172772 1$: 

2$: 



SI- TO; 
SET1; 

172744 SET1A 

C00774 



172726 
1/2714 
172710 
172706 



020000 172746 



000746 

000 752 
0v/0752 

000752 



0007 74 



17257. 
1 7255<t 
17254b 
1 /2540 
1 72506 
172512 



SET2: 



172726 SP01 



5P0: 
SPl: 



SP1A: 



SP1B 



{REGISTER SETUP ROUTINE***** 



020000 W2544 SP3: 



TST 

BNE 

CMP 

DNE 

MOV 

BR 

TST 

BEQ 

TST 

BNE 

J5R 

JSR 

MOV 
BIT 
BEQ 
MOV 
MOV 
MOV 
BIT 
BEQ 
BIT 
BNE 
MOV 
JSR 

n i: t 

Bi Q 
HAL T 
.IMP 

CMP 

BNE 

MOVB 

BIC 

SWAB 

BIS 

TST 

BEQ 

Df.C 

BR 

INC 

BIT 

BFQ 

INC 

BIS 

HI 5 

B 1 5 

IMS 

MOv 

mi 

HNI 

NOP 
HIS 
HI T 
BNE 



CRCF'I G 

1$ 

430, NAM 

2$ 

#11. SCI 

SET1A 

STFEG 

SETO 

WPGPL 

SET1 

PC.DSUP 

PC. INIT 

#•400. arc 
#20>UDE5 

Sb* T2 
#"lOOO.SEC 

# 2oo, auc 

DATAD.36A 

#10000, SCS 

SPl 

420000. SSWR 

SP01 

#WM5G4,R4 

PC.TTOUT 

#100000, aswR 

SPO 

5ET1 

#14,WAM 

SP1B 

aWTAD.DATC 

#177400, DATC 

DATC 

0200, DATC 

RDHV*-' 

SPl A 

WIAD 

SP1B 

WTMD 

#20.UDES 

5P14 

WTAD 

t'lu-'s.arc 

.7 1 , .JMH 
WAM.fiJMH 

CATC,b)MR 
I UN . b)C 1 
04 0000, SD 5 
SP3 

PC 

#?oooo, aiWR 

SP4 



j DO 


NOT 


DO DATA SETUP 


NOR INIT 


(IE 


CRC 


CORRECTION IS 


IN PROGRESS 


}D0 


NOT 


INIT IE DOING 


WAM 4 5 



TEP D 



jDO DRIVE CLEAR IF WAM4 - - • STEP D 



SEE IF SINGLE TEST 

IF NOT: BR 

SEE IE HAVE SELECTED PATTERN 

IK SO: BR 

GO DO DATA SETUP 

INIT CONTROLLER, SELECT UNIT 6 DRIVE 

LOAD SLAVE DESC AND MOVE OFF DOT 



SET FC 
SEE IE 

IE NOT 
SET FC 
SET UC 
SET BUS 



WCX2 
CORE 

BR 
WCX4 



DUMP 



ADDRES 



5 ASSURE DRIVE THERE 
I IF SO: BR 

j SEE IE PRINT ERRORS 
}TF NOT: RR 

jPRINT NONEXISTANT DRIVE 
;SEE IE HALT ON ERROR 
j IE NOT: BR 

;RESET UP 

I SEE IK WAM 3 

; IE NOT: BR 

iGET FIRST CHAR 



;SET PARI M 

{SEE IE READ RE VI RSE 

;IF NOT: BR 

j DECREMENT POINTER 

j BUMP POINTER 

j SEE IE CORE DUMP 

il'E NOT: BR 

j BUMP POINTER AGAIN 

j SET UNIT DESCRIPTION 

iSET MAINT MODE 

j SET WW 

;SET DATA 

{SET FUNCTION 

j ASSURE NO ERROR 

I IE ERROR: BR 



k DEN. PARENT) 



Rl- TURN 
SEE U 

IF NOT 



PRINT 
BR 



ERRORS 



C/TEBCO TMU3TL16 ru/; CI 1 It 
CZTEBC.PU 06-APR-84 10:31 



1557 0060^6 

1558 00603? 



1559 
1560 
15^1 
156c 5 



006036 
0060*4 
006046 
006050 



01.2704 

004757 
032777 
001401 
000000 
000207 



017046 

013154 
100000 



MACU1 



172524 



M 



/ 



30(1046) 


06 


APR 


-84 10:36 P 




MOV 




V>UMSG2,R4 




JSR 




PC, T TOUT 


SP4 : 


BIT 




#100000 »aswR 




BEQ 




SP5 




HAL T 






SP5: 


RTS 




PC 



PAGE 38 



SEQ 0038 



jPRINT SETUP ERROR 
jSEE IF HAL T ON ERROR 
lIF NOT; BR 

{RETURN 



C7TCBC0 TM03-TE16/TU7 7 CLT II 
CZTEBC.P11 06 -APR -84 10:31 
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N3 

PAGE 



39 



SEQ 0039 



1563 

0.564 
1565 
1566 
15oV 
1568 
1569 
15 70 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
15^5 
1536 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 

1608 
1609 
1610 
1611 
161? 
1613 
1614 
1615 
1616 
1617 
1618 



006052 
006054 
006056 
006064 
006066 
006074 
006102 
006104 
006110 
006116 
006120 
006126 
006130 
00bL34 
006142 
006144 
006146 
006150 
006152 
006154 
006160 
006162 
006170 
006172 
006200 
006204 
006210 
006216 
006220 
006224 
0062*2 
006234 
006242 
006244 
006246 
006252 
006254 
006260 
006266 
0062 70 
006274 
006300 
006304 
006306 
006312 
006314 
006320 
006326 
006330 
006334 
006340 
006342 
006 350 
006*56 



000240 
000240 
032777 
001403 
042777 
022737 
003402 
000137 
022737 
00177? 
052777 
005000 
012701 
032777 
001404 
00530r 
001372 
005301 
001370 
005737 
001407 
02273 7 
001003 
053777 
005077 
012701 
032737 
001402 
012701 
022737 
001412 
032737 
001404 
006301 
062701 
000402 
062701 
022737 
001065 
117700 
042700 
005737 
001403 
005337 
000416 
005237 
032737 
001410 
005237 
005777 
001003 
162737 
052777 
017 702 



000040 172450 



000040 
000010 

006530 
000030 

000001 

000002 
100000 



000602 
000014 

000752 

172362 
000400 
000020 

001000 
000014 

002000 



000246 

000010 
000014 

172460 
177400 
001004 

000754 

000754 
000020 

000754 

172414 

000010 
000040 
172152 



000746 



000774 



EXEC: 



172440 
000746 EXO: 



1*: 
2$: 



172362 EX1: 
1$: 

172400 EXlAt 



1$: 

000746 

172334 

EX2 

000774 

000746 EX3 
000774 



EX5: 
000746 EX5A 



EX5A1 



{EXECUTE WAM ROUTINE***** 



000/54 
172156 EX5B; 



NOP 

NOP 

BIT 

BEQ 

BIC 

CMP 

BLE 

JMP 

CMP 

BEQ 

BIS 

CLR 

MOV 

BIT 

BEQ 

DEC 

BNE 

DEC 

BNE 

TST 

BEQ 

CMP 

BNE 

BIS 

CLR 

MOV 

BIT 

BEQ 

MOV 

CMP 

BEQ 

BIT 

BEQ 

ASL 

ADD 

BR 

ADD 

CMP 

BNE 

MOVB 

BIC 

T ST 

BEQ 

DEC 

BR 

INC 

BIT 

BEQ 

INC 

TST 

BNE 

SUB 

BIS 

MOV 



440,S)MR 

EXO 

440.3MR 

410, WAM 

2$ 

EXWI2 

430, WAM 

1* 

01.8C1 

RO 

42.RI 

4100000, S)TC 

1$ 

RO 

EX1A 

Rl 

EX1A 

SLVTYP 

EX2 

414, WAM 

EX2 

DATCSMR 

SPSW 

4400. Rl 

420.U0ES 

EX3 

41000, Rl 

414, WAM 

EX5A 

42000, UDES 

EX5 

Rl 

4246, Rl 

EX5A 

410, Ri 

414, WAM 

EX5C 

q3WTAD.R0 

4177400.RO 

RDRVf 

F.X5A1 

WTAJ 

FX5B 

WIAD 

420, UDES 

tX5U 

WTAD 

aWTAD 

EX5B 

410, WTAD 

440, 3MR 

aMR,R2 



{ASSURE MAINT CLOCK IS ZERO 
{IE NOT j CLEAR IT 
,-BRANCH IK NOT WAM 

j GO 00 WAM 

{BRANCH IF WRAP AROUND MODE 4 

;SET GO BIT 

SET DELAY 

SEE IF ALPHA 
IP SO: BR 

jAWAIT ALPHA 



BRANCH IF TE16 

BRANCH IP NOT WAM3 

LOAD DATA AND DO CLOCK UP 

{SET NUMBER OF CLKS 

{SEE IF CORE DUMP 

j IF NOT; BR 

{SET 4 OF CLOCKS = WORD COUNT X 4 

{BRANCH IF WAM 3 

{BRANCH IF NRZ 

;SET TO ALLOW FOR PRE/POSTAMBLE 

{ADD CLOCKS FOR CRC AND LRC 
{BRANCH IF" NOT WAM 3 

{GET DATA CHARACTER 
{CLEAR UPPER BYTE 
;BRANCH IF READ FORWARD 

{DEC POINTER 

{INCREMENT jATA PTR 

{BRANCH IF NOT CORE DUMP MODE 

{BUMP POINTER 

{SEE IF END 

{IF NOT: BR 

{RESTORE POINTER 

{CLOCK UP (DOWN IF TU7-M 

{READ MR 



C/TI BCO 


TM05 Rib TU.»." 


CM 11 


MAC Ul 


CZTfcBC. 


Pll 06 -APR -84 


10:31 




l6l* 


006 3b,? 


042 702 


1 7 7600 




lbOO 


006366 


000300 






lr»^l 


006370 


022700 


1 / 7000 




1600 


006374 


001404 






162? 


006376 


000240 






1604 


006400 


000240 






1605 


00640*? 


052 700 


000200 




1606 


006406 


050000 






16.? : 


006410 


005737 


000600 




1628 


006414 


001407 






162* 


006416 


005301 






It* 50 


0064^0 


001403 






1651 


006402 


0102;: 


170106 




1650 


00^426 


000"14 






1653 


0064 30 


000137 


011706 




In 54 










1635 


0064 34 


010277 


172074 




1636 


006440 


000406 






163: 










1638 


006442 


052777 


000040 


1 72064 


163* 


006450 


042777 


000040 


172056 


1640 


006456 


017 700 


172050 




1641 


006462 


000300 






1640 


006464 


032737 


000010 


000774 


164 3 


0064 72 


001405 






1644 


0064 74 


010077 


172260 




1645 


006500 


005237 


000760 




1646 


006504 


000400 






164: 


006506 


11007? 


1 72246 




1648 


006512 


00523? 


000 760 




1649 


006516 


000040 






1650 


006520 


005301 






UiSi 


006502 


001056 






1*52 


006524 


000137 


011*06 





30( 1046) 


Ob APR 


H4 I0i*b 




FUC 


01 7 7bOO.RO 




SWAB 


RO 




CMP 


01 7 7000.RO 




B'-Q 


2$ 




NOP 






NOP 




11: 


BIS 


0000, RO 


0*! 


BIS 


RO.RO 




TST 


51 VHP 




BfcQ 


41 




DEC 


Rl 




BfcQ 


U 




MOV 


RO.0MR 




BR 


f X5A 


S*j 


JMP 


10RP 


4$: 


MOV 


R2.NMR 




BR 


tX5D 


t: xbc i 


BIS 


040. QMR 




BIC 


040.SMR 




MOV 


SMR.RO 




SUAB 


RO 




BIT 


010.U0FS 




be a 


EX5C0 




MOV 


RO.yRDAD 




INC 


ROAD 




BR 


IX5C1 


t.xSCO: 


MOVB 


MO.aROAD 


M5Clt 


INC 


ROAD 


EX5D; 


NOP 






L)FC 


Rl 




BNt 


F *5A 




JMP 


tORP 



PAlit 40 



>EU 0040 



l MASK Our DATA 
I POSIT ION OAT A 
iSf.e. If PAITtRN S 
{IF SO: BR 



iSE T ODD PARIT r 
1 1 OAO WW DATA 
iBRANCH U Teib 

1 01 CRtht'NT CLOCK COLIN! 

j Clock down (up v Tu7/) 

iCONUN'Jt 

lUO TO FND OF 'IKCOHO 

jDO CLOCK DOWN 



j CI OCK l^ I'OOUN^ 
jCL OCK DOWN (UP) 
iC.FT MR 

ISLE If tVFN PAR 
I U' NOT: BR 



j PUT CHAR TN CORF 



jSM IF DUNK CLKS 
ll» NOT: MR 
I GO DO fcOR 



C/TtHCO TMOA 
C/URC,Pll 



U tf K'.V CI 1 I J 
06 APR 84 10: 31 



MAO 11 30(1046) Of. APR -Ail 



C'l 

10 {36 PAUE 



1653 

1654 

1655 

1656 

1657 

i<-58 
i65^» 

lt» 60 

1661 
166.? 
1663 
1664 
1665 
lt66 
l6t< * 
166(3 
166^ 
It, .'0 
16*1 
16 V 
16 '3 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
168? 
1683 
1684 
1685 
1686 
1687 

1688 
1689 
1690 
1691 
169? 
1693 
1694 
1695 
1696 

169 ; 

1698 
1699 
1 700 
1701 
170c 1 
1 ''0 5 
1 704 
1 70S 
1 706 



it XFCUTfc WAM 0. 



006530 
006536 
00654 J 
006550 
006552 
006556 
00656,? 

0065 70 
0065 7 r 
006600 
006606 
006612 
006620 
0066^2 
006626 
006634 
006636 
006642 
006644 
006646 
006652 
006654 
006656 
006660 
006662 
006664 

0066 72 
006674 
006 700 
006 704 
006710 
006712 
006 714 
006716 
006722 
006 726 
006 7 30 
006 7 32 
006 7 34 
006742 
006744 
006 746 
006 750 
006 752 
006754 
006 756 
006 764 
006 766 

0067 72 
006 7 74 
00 7002 
00 7004 
007010 



012737 
OUVOI 
032737 
001402 
012701 

012 702 
022737 
001003 
052777 
012777 
0050 7 7 
032777 
001774 

017 722 
032777 

0013 74 

017722 
005301 
001362 
012701 
005000 
005300 
001376 
005301 
001374 
032777 
001004 
012704 
004737 
005777 
100001 
000000 
000240 
012701 
012700 
010102 
012203 
000303 
032737 
001402 
010321 
000401 
110321 
005300 
001365 
032777 
001002 
004 73 7 
000240 
05277/ 
001002 
004 7 3 7 
Q0020? 



006 714 
000200 
002000 

000100 
020356 
000030 

000010 
000161 
171754 
000040 

171706 
000040 

171672 



000003 



000200 
00 7012 

000400 

00 7 A 12 



000666 
000 7 74 

000 746 

171720 
1 7 1 702 

171714 
171700 



020000 1716 76 

017310 
013154 
171660 



020356 
000400 



000010 000 7 74 



171604 



Ulbbh 



EXW2: 

EXW2A; 

IS: 

EXW2B: 

tXW2C: 

EXU2E: 
KXW2F: 



MOV 
MOV 
BIT 
BEU 
MOV 
MOV 
CMP 
BNE 
BIS 
MOV 
CI R 
31T 
BEQ 
MOV 
BIT 
BNE 
MOV 
DtC 
BNE 
MOV 
CLR 
DEC 
BNE 
DtC 
BNE 
BIT 
BNE 
MOV 
JSR 
1ST 
BPU 
HALT 
NOP 
MOV 
MOV 
MOV 
MOV 
SWAB 
BIT 
BEQ 
MOV 
BR 

MOVB 
DFC 
BNt 
BI T 
BNt 
JSP 
NOP 
BI T 
BNt 
JSR 
tXWtfXs NTS 



EXW?fi: 
EXW2H: 

EXW2J: 



E.XW2J0: 
EXW2J1: 



t /W2!< : 



#EXW2H,RTRN 

0200, R 1 

#2000, UDES 

EXW2A 

#100, Rl 

ORBUTf ,R2 

#30, WAM 

It 

#10,SCS 

#161, SCI 

BPSW 

#40,fittR 

EXW2B 

3MR.CR2)* 

#40,flMR 

EXW2C 

SMR,CR2)» 

Rl 

EXW2B 

03, Rl 

RO 

RO 

E XW2F" 

Rl 

EXW2f 

020000. SSWR 

EXW2G 

0WMSG24.R4 

PC, T TOUT 

SSWR 

EXW2H 



#RBl>T,Rl 
#400, RO 
R1.R2 
(R2^.R3 
R3 

#10,UOFS 

MW2J0 
N3.(Rl ). 
F XW2J1 
R 3 , ( R 1 ) . 
RO 

t XW2J 
0200, SSUR 
EXW2K 

PC,wsrc w 

0400,aSWR 
FXW2X 
PCtQCHK 
PC 



41 



j SET INTERRUPT RETURN ADDRESS 

I SET NUMBER OF CLOCK'S - FC/? 

jSEE It PE 

I IF NOT: BR 

j ELSE SET CtKS « t C'4 

I SET BUFFER ADDRESS 
I BRANCH IF NOT URAP 4 

I'iLT INHIBIT BUS ADDRESS INCREMENT 
I SET WRITE COMMAND AND GO 
I ALLOW INTERRUPT 

l AWAIT CLOCK VP 
iGF.T DATA 

jMWAIT CLOCK DOWN 
I GET DATA 
iSEE IF DON! ALl 
j IF NOT- BR 

j SET DEL AH 



lOH.Ai 

I SEE IF ERROR PRINT 
I IF NOT- BR 

jPRINT NO INTERUPT 
i SEE IF HALT ON ERROR 
l IF NOT: BR 



tGf T START OF READ BUFFER 
{SET Sl/E 



iSFt [F EVFN PAH 

j IF NOT: BR 

j SAVE PAR » DATA 

I ASSEMBLE DATA IN Hi It 

l CONTINUE FOR AH 

j SEE IF STATUS CHECK 

j IF NO!; BR 

lil St GO CHtCK STATUS 

j St F TF OAT A CHfCK 

I IF NOT: HR 

ill M GO CHECK OAIA 

iLXII 



SEG 0041 



[VI 



C/H HiV 


IM03 H 


It* K'7 7 


ci \ x i 


MAC ill 


*0l 1O0 6 


) 06 APR 84 10:36 PAGF A.'» 


c* ti tv. 


HI Ob APR 84 


10:31 












l 'Ot< 


















1 v* 
1:10 












I WRAP 


AROUND STATUS CHbCK ROUT IN?.** *►♦♦♦♦ ♦ 


007012 


000240 






WSTCK; 


NOP 






1"12 


00 7014 


00503 7 


0007 70 






CL R 


SERFL 


CLEAR ERROR Ft AG 


1^13 


007020 


005037 


000616 






CIR 


HDHPl. 


Clear header flag 


KU 


007024 


005737 


000602 






Tsr 


SL VfYP 


BRANCH IF TU7 7 


1 'ir- 


007030 


001004 








RNF 


10* 




l'lb 


007032 


022737 


015244 


000620 




CMP 


OMSt T2.EMADDR 


SEE IF TEST 2 


i:i: 


007040 


001404 








BEG 


?.% 


IF SO: BR 


1718 


007042 


022 737 


016134 


000620 


10$: 


CMP 


•MSLT15.EMADDR 


SEE IF TEST 15 


l'.'l^ 


007050 


001012 








bne 


5$ 


IF NOT: BR 


1 VO 


007052 


022 737 


000003 


001000 


2$: 


CMP 


03,PA T RN 


SEE IF PA! TERN 3 


1721. 


00 7060 


001006 








BNE 


5$ 


IF NOT: BR 


1722 


007062 


052737 


140000 


001026 


4$: 


BIS 


0140000, WDS 




1 V3 


00 '0 70 


052737 


000100 


001030 




BIS 


0100. WER 


SET EXPT PARITY ERROR 


1V4 


007076 


012737 


017132 


000670 


5$: 


MOV 


0WMSG6.E.RADD 


SET C0DE-CS1 


1725 


007104 


0!?702 


171400 






MOV 


QC1.R2 


GET RCVD CS1 


1^26 


007U0 


042702 


140000 






BIC 


0140000, R2 


MASK OUT SC £ TRE BITS 


1727 


C"»7114 


015705 


001022 






MOV 


WCS1.R5 


GET EXPT CGI 


1728 


00 7120 


042705 


140000 






BIC 


0140000, R5 


MASK OUT SC 6 TRE BITS 


1729 


OO/i/M 


004 7*7 


07266 






JSR 


PC.WSTO 


GO CHK 


1730 


co';/'v 


012 737 


017157 


0006 70 




MOV 


0WMSG6L,FRADD 


SET C0DE-CS2 


1731 


o-msr*. 


017702 


171356 






MOV 


8CS.R2 


SET RCVD CS2 


1752 


00/1 5.. 


0*2702 


001000 






BIC 


01000, R2 


CLEAR MXF BIT (DON'T CARE BT 


1 733 


0<.Wi4f 


013705 


001024 






MOV 


WCS2.R5 


GET EXPT CS2 


1714 


00 7 V' 2 


053705 


000622 






BIS 


DRVN.R5 


SET DRIVE NUMBER IN EXPT CSr 


173- 


00';<ir. 


004737 


007266 






JSR 


PC.WSTG 


GO CHK 


173- 


■ Oi ib: 1 


012737 


017165 


000670 




MOV 


0WMSG6E.ERADD 


SET CODE-DS 


1 7 3 7 


«' ■:■ : : ?o 


017702 


171326 






MOV 


B0S.R2 


SET RCVD DS 


1736 


C.:7 1 :*, 


013 705 


001026 






MOV 


U0S,R5 


(H T EXPT DS 


17! f » 


':*' -voo 


004737 


007266 




1$: 


JSR 


PC.WSTG 


GO CHK 


1'40 


■x. 7\>4 


012737 


017172 


0006 70 




MOV 


0UMSG6F.ERADD 


SET CODF -ER 


". ■ -* i 


'■^ ■-:;.? 


017702 


171306 






MOV 


SER.R2 


GET RCVD tR 


1 7*i > 


^■■..72 lb 


000240 








NOP 






1 74 3 


4 "7 '\'.;0 


000240 








NOP 






1741 


f 7-V2 


022737 


016355 


000620 




CMP 


OMSLT20.FMA0DR 


SEE u n sr ,k> 


IW. 


c-j.v*.o 


001002 








8NF 


12$ 


V NOT: BR 


1746 


O0.'*'-\S2 


042 702 


001000 






BIC 


01000.R2 


MASK f CF 


1 74 7 


C0".V36 


013705 


001030 




12$; 


MOV 


UER.R5 


GF T EXPT {R 


174H 


Ov /2V 


004737 


00 7266 






JSR 


PC.USTli 


GO CHK 


1 749 


■ ''.5 


00573 7 


0007 70 






TS1 


SFRM 


SEE IF AN» ERRORS 


1 7^0 


0-- ','52 


001456 








BEQ 


WbTx 


V NOT: BR 


175' 


00 7254 


005777 


171310 






rsi 


aswR 


SEE IF HALT ON ERROR 


17:;: 


CO V 200 


100053 








BPl 


WS T X 


If NOT ; BR 


i 7 v; 


'~>0''i!C2 


OuOOOO 








HAl T 






1 754 


: ■' ' 7264 


000451 








BR 


W5TX 


CONTINL't 


1 


^0/266 


000240 






Willi* 


NOP 






1 '.Jo 


00 *2 70 


020205 








CMP 


R2,R"> 


SFE U FXPT-RCVD 


1757 


OsjlctL* 


001446 








BFQ 


WSTx 


U SO: BR 


1 71 1: 


'/0.-2/4 


0052 3 7 


OC0 7/0 






INC 


5ER> I. 


SE T IRROR * I AG 


: / r /f 


i''0/?O0 


052777 


020000 


171262 




BIT 


020000, aswR 


St E U PRINT ERRORS 


1 ;.-/, 


i-VM06 


001040 








BNt 


WSTX 


U NOT: BR 


i T -.: 


>/M0 


005 7 5 7 


00061b 






F'iT 


HDR> I 


SEE U DONE HtADER 


1 » ' 1 


,-*J4 


00101c 








HfJt 


USTt.O 


IF bOi UR 


l7Co 


00 751C 


015/04 


OQObaO 






MOV 


IMA00R.R4 





>EQ 0042 



C/UP.CO 


W03 Tf U». TU/7 


ci.i u 


WTtRC. 


Pil 06-APR-a-l 


10:31 


1 *64 


007322 


004 73 7 


013154 


I7h^ 


00/326 


C 12704 


0172 74 


l ;m» 


007.53? 


004 737 


01M54 


I ?v ' 


00753b 


012737 


000001 


1 7t»S 


007^44 


013704 


0006 70 


1 76^ 


007350 


004 737 


013154 


1 :' '0 


00/35*; 


012704 


014516 


i v*i 


00 7560 


004 737 


013154 


I 7'V 


00 7564 


010503 




i ;t\' 


00 7366 


004 737 


013366 


17 74 


00 7? ;o 


012704 


014525 


1'7 7;\ 


00/3 7* 


004 73 7 


013134 


!/">■ 


00 '.'40? 


010203 




i ■ •• ■• 


00/404 


004 ^ 3 7 


013366 


1 " '* 


007410 


000207 




IV ^ 









MACU1 30U046) Ob -APR -84 10:36 PAGE 43 



000616 WSTGO 



USTX; 



JSR 


PC, T TOUT 


{PRINT TEST 


HFADER 


MOV 


0WMSG23.R4 






JSR 


PCTTOUT 


iPRINT STATUS TAG 


MOV 


0l,HDR*'l 


;SET HEADER 


FLAG 


MOV 


ERADD.R4 






JSR 


PC.TTOUT 


jPRINT CODE 




MOV 


*MSG1?,R4 






JSR 


PCTTOUT 


{PRINT EXPT 


TAG 


MOV 


R5,R3 






JSR 


PCOCTP 


{PRINT EXPT 


STATUS 


MOV 


OMSG13.R4 






JSR 


PCTTOUT 


{PRINT RCVD 


TAG 


MOV 


R2.R3 






JSR 


PCOCTP 


{PRINT RCVD 


STATUS 


RTS 


PC 


{RETURN 





C/TIRCO -MO* 
CZTttKT.Pll 



if u> tu/: a i n 

Ob -APR -84 10;31 



MACUl 50(1046) 06 -APR -84 10536 



PAGE 44 



SEQ 0044 



1 "60 
1781 

1 783 
:. 784 

1785 
178o 

re- 
i/:»8 

178S- 
1 790 
1T91 

!. 79* 
3 704 

1 <* i: >b 

i?S * 
1 7<48 
1 ?<>\> 
5.300 
1601 
1 8 02 
18c 3 

1805 

1806 
18u7 
180F 
ISO 9 

Ikio 

In IS 
Ml ■ 

us: ft 
\ ^ I > 

J820 

it;:-i 

1.8/5 
!?i?4 
UV5 
182b 

..828 

182-) 

U'.'o 

I'M 

I8V- 
IS'.--, 
18 *'* 
i*3f. 



00/41? 
00 7414 
007420 
007422 
007426 
007432 
0074^4 
007440 
0074 44 
00/450 
00 7456 
00 "AGO 
CO 7464 
<>0 74 ? 2 
00 74/4 
007502 
007504 
007510 
007514 
007522 
00/524 
00/532 
007534 
00/540 
C0/54o 
00 7550 
•.:07sr,6 
00/5S0 
00 >564 

r>o/s/o 
1 0/574 
or/' j 7b 

007 o04 
00 /60t» 

00 V M;. 

u//*. ( v 

''0 7650 
■HV//0 4 
Ou'640 
00 'o44 
00/^5-j 
00 /654 
00?>0 
00 ''661 

00 v rj 
00; 6 '4 
00 ' 02 
o : ; ?o4 

00/ i0 

*.'» ' ill 
00/ 71b 
007 720 



000240 
005737 
00140? 
000137 
005737 
001373 
00503 7 
005037 
005037 
032737 
001402 
000137 
022737 
001006 
032737 
001402 
000137 
012700 
022737 
001006 
032737 
001402 
012700 
022737 
001404 
022737 
001007 
012700 
012701 
005037 
000431 
022737 
001021 
032737 
001415 
012700 
012737 
004737 
004737 
005037 
000137 
00503 7 
012701 
012 702 
032737 
001416 
022737 
001011 
001-73 7 
001007 
012701 
000404 
012/01 



001020 

010252 
001016 

000616 
000764 
000772 
000010 

010274 
000010 



010776 
177400 
000012 

000020 

177000 
000030 



177744 
017754 
000764 

000012 

002000 

177653 
000001 
007650 
0112/6 
000 762 
010234 
000 764 
017744 
020356 
000020 

000012 

001000 

001054 

001042 



000774 



000746 
000774 



000774 
000 746 



DCHK 



1$: 
2$j 



000746 DCHKAO 
002000 000774 



OCHKAj 



000746 DCHKA1 
000006 000746 

1$: 



000746 DCHKA2 
000774 

000762 



DCHKB; 
OCHKBO 



iDATA CHECK ROUTINE***** 



OCHKC; 



NOP 

1ST CRCFLG 

BEQ 2$ 

JMP DCHKX1 

TST DCHKFL 

BNE 1$ 

CLR HDRFL 

CLR DERFL 

Cl.R CRCNT 

BIT 010.U0ES 

BEQ DCHKAO 

JMP DCHKE 

CMP 010, UAM 

BNE DCHKA 

BIT 02000, UDES 

BEQ DCHKA 

JMP PRCHK 

MOV 0-400.R0 

CMP 012. WAM 

BNE DCHKA1 

BIT 020.UOES 

BEQ DCHKA1 

MOV 0~1000.RO 

CMP 030. WAM 

BEQ 1$ 

CMP 06, WAM 

BNE DCHKA2 

MOV 0-34.R0 

MOV OWei*F*lO,Rl 

CLR DERFL. 

BR DCHKBO 

CMP 012. WAM 

BNE DCHKB 

BIT 02000, UOES 

BEQ DCHKB 

MOV 125.R0 

MOV 01.UJF1G 

JSR PC, DCHKB 

JSR PC.U1DCHK 

Cl.R W2FLG 

JM? DCHKX 

CLR DERH. 

MOV OUUUFF.Rl 

MOV ORBlf F ,R2 

BII G20.U0FS 

BEQ DCHKQ 

CMP 01 2, WAM 

BNE DCHKD 

TST PATRN 

BNE OCHKC 

MOV OUCDPO.Rl 

HR DCHKO 

MOV 0WCDP2.R1 



jDO NOT DO A DATA CHACK 

I IF CRC CORRECTION IN PROGRESS 

{BRANCH IF DATA IS NOT 10 BE CHECKED 

jCLEAR HEADER FLAG 

{CLEAR DATA ERROR FLAG 

{CLEAR CHAR CNTR 

{SEE IF EVEN PARITr 

iIF NOT; BR 

{ELSE GO CHECK EVEN 

{SEE IF WAM 1 

{IF NOT j BR 

{SEE IF PE 

{IF NOT- BR 

I GO CHK DATA 

{SET NUMBER OF CHARACTERS 

i IF NOT WRAP 2: BR 

{IF NOT CORE DUMP; BR 

{BRANCH IF WRAP 4 

{SEE IF WRAP 

j IF NOT; BR 

{SET NUMBER OF CHARACTERS READ 

{SET POINTER 

{CLEAR DATA ERROR FLAG 

{SEE IF WRAP 2 

I IF NOT; BR 

{SEE IF Pfc 

j IF NOT; BR 

iPOINf TO START OF DATA 

{SET WRAP 2 FLAG 

{GO CHECK DATA 

{GO CHECK WRAP 1 DATA 



{SET GOOD POINTER 

{SET READ POINTER 

{SEE If CORE DUMP 

1 IF NOT; BR 

{SEE IF WAM 2 

{IF NO I : BR 

iSEE IF PATTERN 

{IF NOT; BR 

l St T CORt DUMP PAT URN 

{GO CHECK DATA 

I SIT CORE DUMP WRITE PATTERN 

















GA 






C/TEBCO 


tf»0* u. 
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45 




c/rt9C 


Pll 06 -APR -84 


10*31 














1^36 


00?.'..'1 


000401 








BR 


DCHKO 


;G0 CHECK DATA 




1837 


00/ TS 


000?40 






DCHKO: 


NOP 








1838 


OO.'/.'O 


121112 






DCHKO: 


CMPB 


(RD.CR2) 


;SEE IE DATA OK 




1839 


oo ,' ■ ;< ? 


001466 








BEQ 


DCHK2 


I IF SO: BR 




1840 


oc ; * *4 


03?777 


020000 


1 70626 




BIT 


<??0000, oJSWR 


iSEE IE PRINT ERRORS 




1841 


oo ; ■■/*? 


00106? 








BNE 


DCHK2 


{ IK NOT: BR 




184? 


00 7 7-4 


005737 


000616 






TST 


HORF'l 


j SEE IF DONE HEADER 




184? 


00 ■■ 7 ^0 


001004 








BNE 


DCHK1 


(IF SO: BR 




.1844 


OC".? 


013704 


000620 






MOV 


EMADDR.R4 






1845 


007 ".-.? 


004737 


013154 






JSR 


PC.TTOUT 


{PRINT HEADER 




1846 


O07Tt:.; % 


005737 


000764 




DCHKli 


TST 


DERFL 


1 SEE IK FIRST ERROR 




184 7 


00'* .Vo 


001014 








bne 


DCHK1A 


;IF NOT: BR 




1848 


0077 70 


01?704 


01724? 






MOV 


tfWMSG16,R4 






184Q 


007/ ; 4 


004 737 


013154 






JSR 


PC.TTOUT 


jPRINT DATA ERROR TAG 




18 r >0 


010000 


012704 


017467 






MOV 


0WMSG32.R4 






1851 


010004 


004/37 


0131*4 






JSR 


PC.TTOUT 


{PRINT PATRN TAG 




185? 


010010 


013703 


001000 






MOV 


PATRN.R3 






1855 


0100:4 


004737 


013366 






JSR 


PC.OCTP 


{PRINT PATTERN NUMBER 




185*. 


oioo?o 


Oi?737 


000001 


000616 


DCHK1A: 


MOV 


Ol.HORFL 


iSET HEADER K..AG 




1855 


0100 6 


01?737 


000001 


000764 




MOV 


01, DERFL 


I SET DATA ERROP FLAG 




1856 


OKV --< 


01?704 


017266 






MOV 


0WMSG21.R4 






1357 


01 v«o 


004737 


013154 






JSR 


PC.TTOUT 


{PRINT CHARACTER NUMBER 


TAG 


1858 


Over -4 


013703 


00077? 






MOV 


CRCNT.R3 






1859 


0100^0 


004737 


01336o 






JSR 


PC.OCTP 


{PRINT CHARACTER NUMBER 




1860 


OlOi'o*; 


012704 


017254 






MOV 


0WMSG17.R4 






1861 


010-7 ■'-. ) 


004737 


013154 






JSR 


PC.TTOUT 


{PRINT GOOD TAG 




186? 


0100,',/; 


111 103 








MOVB 


(RD.R3 






1863 


OiOCvr. 


004 737 


013614 






JSR 


PC.DOUT 


{PRINT GOOD DATA 




186m 


03 Of*/? 


012704 


017261 






MOV 


4UMSG20.R4 






1865 


01OO/6 


004737 


013154 






JSR 


PC. TTOUT 


{PRINT BAD TAG 




1866 


oroM, r j 


111203 








MOVB 


CR2).R3 






186 7 


010! ^-4 


004 73 7 


013614 






JSR 


PC.DOUT 


{PRINT BAD DATA 




1868 


OfOl 1 . :" 


005737 


000762 




DCHK2: 


TST 


U2FLG 


{SEE IF WRAP ? NR/ 




1869 


OiOl 1 4 


001020 








BNE 


DCHK2B 


{IF SO: BR 




1M0 


f)J.O' . , 


005201 








INC 


Rl 


{BUMP POINTER 




1871 


w 10120 


032737 


000020 


000 774 




BIT 


020.U0ES 


{SEE IF CORE DUMP 




187? 


OiOi /;, 


001413 








BEQ 


DCHK2B 


{IF NOT: BR 




18 M 


OiOt v,> 


022737 


000012 


000746 




CMP 


012, UAM 


{SEE! IF WAM ? 




1674 


ou:>;>- 


001006 








BNE 


DCHK2A 


{IF NOT: BR 




18<Vi 


OlOj .0 


005201 








INC 


Rl 


{BUMP POINTER 




18/6 


(tlOt^;. 


005711 








TST 


(Rl ) 


{SEE IF END OF PATTERN 




1 8 7 7 


010W4 


001004 








BNE 


DCHK2H 


{IF NOT: BR 




18/8 


010! n 


!6?7C1 


000010 






sue 


G10.R1 


{RESET POINTER TO START 


OF PATTERN 


18 '9 


010 i " ■• 


■MO 4 01 








BR 


DCHK2B 


{CONTINUE CHECK 




1680 


'■'it.' ■■* 


((0()?4 






DCHK2A: 


NOP 








1881 


Dili- 'it, 


005202 






DCHK2B} 


INC 


R? 






1<J62 


OU'l'.O 


022 73 7 


000030 


000746 




CMP 


o 30. WAM 


{BRANCH IF WAM 4 




1£.V5 


010!. 6 


001404 








BEQ 


1$ 






1084 


010 I/O 


022737 


000006 


000746 




CMP 


06.WAM 


{SEE IF WAM 




lK-'JS 


OiO* ,-j 


001002 








BNE 


DCHK3 


jIK NOT: BR 




1886 


0..0..''-: 


062701 


000010 




1$; 


ADD 


010. Rl 


{BUMP POINTER 




188 r' 


■"'10. -04 


00523 7 


000 7 72 




OCHKij 


INC 


CRCNT 


{BUMP CHAR CNTR 




1883 


010:-j."i 


05277 7 


000400 


170552 




BIT 


0400,aJSWR 


jSt-l- If CONT DATA CHK 




188 * 


010. >> 


001006 








HNE 


DCHKX 


lH NOT: BR 




lo--*0 


0!,\vO 


005200 








INC 


RO 


{SEE, V OUNU 




1891 


010?^ 


001242 








BNE 


DCHKO 


I IF NOT; UR 





ShQ 0045 



C/1U.C0 


TfiO < U. 


Ui- TU// 


CI 1 11 


c/Tt:tU";. 


P* j. Ob -APR -84 


10:31 


: tw 


or; v-; 


001? 737 


000 76t> 


;.893 


010, MO 


001401 




13^4 


01<V'*.? 


00020/ 




u:9S 


OKWVt 


005 7 77 


1 70330 


i «-3ft 


01.0,' 40 


100004 




18V/' 


Ol/YM. 1 


005 757 


000764 


:.s i >s 


01 0;;4n 


001401 




1 tiOO 


(UC'.V>0 


000000 




1900 


ouw 


005037 


000 7 7,? 


V *»0 3 


oio:-v.h. 


00503/ 


000616 


\ c jcv: 


ou;,-vo 


005037 


000/64 


1 jo* 


o;.o t ..;ts 


00503/ 


000766 


1904 


oioav 


000207 





MACU1 30(1046) 06 APR -84 10:36 



OCHKX 



DCHKX1 



TST 

BfcQ 
RTS 
TST 
DPI. 
TST 

BfcQ 

HALT 

CLR 

CLR 

CLR 

CLR 

RTS 



W2FL fi 

DCHKX 

PC 

SSWR 

DCHKX1 

DERFL 

DCHKX1 

CRCNT 
HORFL 
DERFL. 
PREFL 
PC 



H4 

PAGE 46 



{SEE 



IF HALT 
I IF NOT: BR 
I SEE IF DATA 
I IF NOT; BR 



SEQ 0046 



ON ERROR 
ERROR OCCURED 



j CLEAR CHAR CNTR 
; CLEAR HEADER FLAG 
I CLEAR DATA ERROR FLAG 
; CLEAR PREAMBLE K AG 
j RE TURN 



C.'TLBCO 


' rios I J 


16 lU.'.' 


Ct 1 11 


MACY11 30C1046) 


06-APR-84 10:36 P 


CZTUU\ 


Pll 06 -APR- tf4 


10:51 








l^O 1 -, 
IMOo 

WO J 










{EVEN 


PARITY DATA CH 


oio;v4 


000240 




DCHKEi 


NOP 




:.^o i » 


/.(.■■.' 7 o 


02'. , 75/ 


000006 


00074b 


CMP 


#6 , WAM 


1910 


OloS)4 


001005 






ONE 


1$ 


l l »il. 


OJOSuf 


012/00 


17 //44 




MOV 


0-34.R0 


1*12 


0103V 


012701 


017754 




MOV 


owBUFPao.Ri 


191:1 


OJO.-'U* 


000404 






BR 


2$ 


1914 


0LOJ20 


012700 


17 7400 


1$: 


MOV 


# -400.R0 


1915 


oio".: 1 * 


012/01 


017 744 




MOV 


0WBUPP.R1 


l c *\6 


010*^0 


012702 


020556 


2$: 


MOV 


ORBUFf ,R2 


191 "; 


0' 03.-4 


11110S 




DCKF.O: 


MOVB 


(RD.R5 


191S 


i * S.'iti 


005003 






CLR 


R3 


1.Q1--J 


010540 


U? 704 


000010 




MOV 


010, R4 


1 VO 


oio;'.'i'i 


032705 


000001 


DCKE.l: 


BIT 


01, R5 


1921. 


010550 


001401 






Bt'.Q 


DCKF.2 


1 "-V2 


010 V, : 


005203 






INC 


R5 


1\»_.'S 


01(1 ■'■■'■',4 


0C5304 




DCKE2: 


DFX 


R4 


1.9;' 4 


010 At '6 


00140? 






BEQ 


DCKF.3 


1**25 


010." 6^ 


006005 






ROR 


R5 


i926 


o.low 


000770 






BR 


DCKbl 


1 9,"' - 


Ul050-'i 


000 ( >40 




DCKfc3: 


NOP 




1^ ( \H 


01('<^.u 


111105 






MOVB 


(RD.R5 


19c^ 


010 /o 


042705 


177400 




Bl'C 


01 7/400, R5 


J 9*0 


0.10.V4 


005 /o: f i 






T5f 


R3 


1931 


o i o :■' /u 


00100 3 






.. t 


DCKL4 


l l J.*>2 


Olov.oO 


01? 705 


100020 




j •< 


* 100020 ,R5 


i »i5 ' 


OlO-lO'l 


000405 






i 


DCKF.5 


IS 34 


01 i)A ;..<', 


'.52/05 


000001 


DO 


, _. . 


01, R3 


1935 


Olu- »:' 


001402 






'.a 


DCKE5 


19 56 


0104 . 4 


092 /OS 


100000 




his 


0100000, R5 


1 ( :'* ' 


(MO o:o 


042/12 


077400 


DCKfcb: 


BIC 


7 7400, (R2) 


1958 


0.10**24 


020512 






CMP 


R5.CR21 


195'* 


0i04?t» 


O014/7 






BEQ 


DCKt 10 


194 v 


0), "./i -u 


0V//7 


020000 


1/0132 


BIT 


020000, idSWR 


1 94 I. 


oic-'-o 


001075 






BNI 


DCKt 10 


I9i;> 


Oj ('.»'*■»("» 


OO.j/5 7 


000616 




TST 


HORt'L. 


1 04 3 


Oi^'.».;4 


001004 






BNE 


DCKt 6 


1944 


o 1 1 o 4 :, 


015 704 


000t»20 




MOV 


EMAD0R.R4 


194S 


oio ;:.^ 


004/5 7 


013154 




JSR 


PC, MOOT 


194*-, 


010.*..,, 


005/3 / 


000764 


UCKtb: 


1ST 


Of RKt 


194/ 


0104; ? 


001014 






BNF 


0CKE.7 


1 .•48 


Ol^'Vi 


01^/04 


Oi7242 




MOV 


0WMSl.l6.R4 


1949 


010 j .0 


004 73/ 


013154 




JSP 


PC, 1 TOUT 


1 950 


OlD'l ,91 


012/0* 


01/46/ 




MOV 


0WMS032.R4 


1051 


0}^)^^ 


004/3/ 


013154 




JSR 


pc, nam 


19'./' 


njO'v.M 


013/05 


001000 




MOV 


PA1RN.H3 


105 3 


O'l.^i,) 


004 7 3 / 


015366 




JSR 


PC.OCTP 


1'.'54 


oiosk 


000240 




OCKl ■/: 


NOP 




1 955 


O"0-lr, 


012/37 


000001 


000. '..4 


MOV 


01 .DfcHF I 


1 950 


oi .v.;-."- 


012/37 


000001 


000b lo 


MOV 


1 , HOR» l 


I'jS* 


0.L •;'.'» V 


OK- /04 


01 ft'ht. 




MOV 


owmsum ,R4 


]9 ,: ,J1 


OiO '-,:■■■■ 


004 :' 5 / 


H151S4 




JSH 


PC.TIOUT 


'. '* .9 


oi-.: <.,' 


'.■I 5/05 


ooo : ,'.■ 




MOV 


CRCNT ,R3 


V>00 


OiOVi-', 


004 > 37 


013 36*. 




JSR 


PC.OCTP 



14 

PAGE 



47 



StQ 0047 



jSEP IP WRAP 

I IF NOT; BR 

iSF.T NUMBER OF CHARACTERS RF.AD 

; SET POINTER 

I SIT NUMBF.R OF CHARACTERS 
I Ml -START OP WRITE; BUFF E H 
;Rc 5 -START OF RPAD BUFFER 
{GET CXPT DATA 

;SF.T NUMBhR Of BITS 

j SEE IF ONE BIT 

j IF NOT: BR 

j COUNT ONE. BITS POR PARITt CHECK 

j SEE IP DONE 

; IF SO: BR 

jPOINT TO NEXT BIT 



j OFT EXPT DATA 
I MASK DATA PIFt 

;1F NU ONt. BITS SET: BR 



j SEE: If ODD NUMtUR Of ONE". BITS 

i TF NOT: BR 

; SET EJVEN PARITi BIT 1 

;MASK DATA f IE.L.D 

;SEE L^ DATA ♦ PARTTt GOOD 

j U SO : BR 

iSEE If ERROR PRIN T 

; If NUT; BR 

;SEE If DONE HEADER 

j IF SO; BR 

iPRINT HEADER 

;SEE If P1RST BAD CHAR 

I IF NOT: BR 

j PRINT RAD DATA T*Ui 

j PRINT PATTERN TAO. 

j PRINT PATTERN NUMBf N 

j SET DATA f.RROR HAli 
j SI T HI ADf R Fl AO 

(PRINT Chl\U NUMB I R TAG 

: OR INI CHAP NUMBER 

















J4 






CM. IU 


'M03 TL16 in/ ' 


Ct 1 11 


MACU1 


30(1046) 


06 APR 


^84 10:36 PAGE 


48 




CZtiAK 


Ml 06 -APR 84 


10:31 














1M. 


•>10SS? 


OL? /04 


01/?54 






MOV 


ffUMSGl /,R4 






1^6 


01 05^6 


00 1 V * / 


013154 






JSR 


PC.TTOUT 


: PRINT GOOD DATA 


TAG 


I'-- ' 


0105o? 


110503 








MOVB 


R5.R3 






r:o* 


010564 


004 / ~> 7 


013614 






JSR 


PC,D0U T 


{PRINT EXPT DATA 




)c ( » 


0101 70 


010503 








MOV 


R5.R3 






i ■■->>■,.. 


Jl^'..7? 


004/37 


010702 






JSR 


PC.DCKEP 


jGO PRINT PARITY 


BIT 


Iv 1 ' ■' 


0.1.0576 


ooo;.'4o 








NOP 








1-...8 


010600 


0127C4 


0?7?61 






MOV 


0WMSG?0,R4 






■. •■»■- ^ 


Oil 0o 0*1 


00*737 


01 ; 154 






JSR 


PC.TTOUT 


j PRINT BAD TAG 




1 9 . u 


010610 


Ul?03 








MOVD 


(R?),R3 






w j. 


0106 J? 


H)4 737 


0)36 14 






JSR 


PC.DOUT 


{PRINT BAD DATA 




\ * 


0!0~16 


0U?03 








MOV 


(R2),R3 






IV* :' 


010620 


004*. 3/ 


010 /O? 






JSR 


PC.OCKEP 


jGO PRINT PARITY 


BIT 


19 rt 


0106?'* 


000?4C 








NOP 








19 S 


010 j^to 


005?01 






DCKE10: 


INC 


Rl 






!"■ ■» 


oio»5n 


o<rsr$/ 


000006 


000746 




CMP 


06,WAM 


{SEE IF WRAP 




1°. 


010106 


ou?oo? 








BNE 


U 


j IF NOT: OR 




19/ '• 


010640 


0S.-?70l 


0000 1. 1 






ADD 


010. Rl 


{BUMP POINTER 




V-' ' 


010641 


005/?? 






1$: 


TST 


(ft?)* 


{BUMP POINTERS 




: 9" : 


01064o 


005? 3 7 


000/7.; 






INC 


CRCNT 


;BUMP CHAR CNTR 




* v 


0l06'.v. 


03r?/' ; 


000400 


1.67/10 




HIT 


4400,aSWR 


{SEE IF CONTINUE 


DATA CHECK 


:, "j*v. 


010660 


00140,? 








BEQ 


DCKE11 


I IF SO: OR 




?9„ • 


01066? 


000137 


010234 






v)MP 


DCHKX 


{GO TO END OF DATA CHECK 


19J- 


010666 


003 £01) 






UCKf.ll! 


INC 


RO 


{SEE IF DONE 




1\<V. 


0106/0 


ootoo? 








FU.U 


DCKE1? 


j 1 * SO : BR 




I9ti6 


0106/? 


ooo iy/ 


010554 






JNP 


DCKLO 


jH.Sfc CONTINUE 




i.96 ' 


0106/6 


O'.Ol >? 


010? 34 




DCKF-.U 1 : 


JMP 


DCHKX 


jGO TO END OF DATA CHECK 


5 98-', 


* i lo/o:-} 


000. M J 






nCKFP; 


NOP 








l-'->S9 


'.'10/0"I 


^w./S7 


000?40 


00061? 




MOV 


tf?40,T0H 






19<>i 


oio. v 


i .V- ,'37 


013254 






JSR 


PC, TOG 


{SPACE 




1991 


010/' i 


Ou'737 


000?60 


OG0612 




MOV 


#?60,T0H 


{SET PAR-0 




19-V 


oio7?i 


005 /C 5 








rsT 


R3 


j St Z V- PrtRITi RE ALL 1*0 


19' J 3 


Clv,./2t- 


100002 








BR 


dckepo 


; U SO- BR 




1V94 


010/30 


005." 3/ 


00061.' 






TNC 


[ Of'. 


jM .'A *,f. ' K) 1 




1 99S 


010734 


004 737 


013254 




DCKEPOi 


JSK 


PC - TOG 


{PRIM HARin on 




,.997 


010740 


000^07 








RTS 


PC 


iRE! URN 





SfcQ 0048 



C/TM1C0 


IM03-T* 


16 U'// 


CI. 1 I J 


MACY11 30(1046) 


06 -APR 


-84 10:36 


czTt.nc. 


Pit 06 -APR -04 


10:31 








1 9*« 














10^ 1 ) 










{PREAMBLE/POSTAMBt.E 


2000 














2001 


010742 


012700 


000051 


PSCHK; 


MOV 


tf51.R0 


2002 


010/46 


012701 


017622 




MOV 


#P0ST,R1 


2003 


010 7V 


005037 


000616 




Cl.R 


HDRFL 


J 004 


010^56 


00503/ 


000 7 72 




CLR 


CRCNT 


2005 


010762 


005037 


000764 




Cl.R 


DERFl. 


2006 


01C/66 


000240 






NOP 




200 : 


010/70 


000240 






NOP 




2008 
200°> 
2010 


010772 


000137 


011014 




JMP 


POO 


0107 /"b 


012/00 


000051 


PRCHK : 


MOV 


tf51.R0 


2011 


011002 


012701 


017500 




MOV 


4PRE.R1 


2012 


OU006 


012 702 


020356 




MOV 


ORBUfT.R? 


2015 


011012 


022122 






CMP 


(R1)*,CR2)* 


2014 


011014 


1.2111? 




PDOi 


CMPB 


CR1),(R2) 


2015 


011016 


001004 






BNE 


po; 


2016 


011020 


126162 


000001 


000001 


CMPR 


CRD.1CR2) 


20 ! 7 


0.1026 


001477 






BEQ 


205 


2C18 


011030 


03?/ 7 7 


020000 


167532 PD1: 


3IT 


>20000,QSWR 


2019 


011036 


0C1073 






BNE 


?D5 


2020 


011040 


005737 


000616 




1ST 


HDRFL 


2021 


011014 


001020 






BNE 


PD4 


2022 


011046 


013704 


000620 




MOV 


EKADDR , R4 


2025 


011052 


004 737 


015154 




sJSR 


PC.TTOUT 


2024 


011056 


005 737 


000766 




T5T 


PRFFl. 


2025 


011062 


001405 






BEQ 


P02 


202o 


011064 


012704 


017413 




MOV 


#WMSr>29,R4 


202 / 


011070 


000402 






BR 


PU3 


2026 


011C/2 


012/04 


0173/5 


PD2 ; 


MOV 


4WMSG2H.R4 


202^ 


<>110/6 


004 737 


015154 


P0 5; 


JSR 


PC.TTOUT 


20 so 


011102 


005237 


000616 




INC 


HDRFL 


2031 


011106 


012704 


01/266 


PD4: 


MOV 


ft WM 50 21 ,R4 


2032 


01U12 


004737 


015154 




J5R 


PC.TTOUT 


2033 


011116 


013703 


000/7? 




MOV 


CRCN1 ,R3 


2031 


011122 


004 73 7 


013366 




JSR 


PC.UCTP 


2035 


011126 


012 704 


01/254 




MOV 


*WMSt>l /,R4 


2036 


011132 


004 737 


015154 




JSR 


PC, 1 10U1 


20 3/ 


0111 3o 


116103 


000001 




MGVB 


ICR1 ).R3 


2038 


011142 


OU4/37 


015614 




JSR 


PC.OOUT 


2039 


011146 


012737 


00024C 


000612 


MOV 


0240, 10B 


2040 


011154 


004 7J7 


015254 




JSR 


PC. TOO 


204 I 


011160 


111103 






MOVH 


( R 1 ) , R * 


204.' 


01116? 


004 737 


01361* 




JSR 


PC JJOUT 


204 5 


011166 


012 704 


01/261 




MOV 


«UMMi?0,H4 


2044 


01U7? 


004 7 57 


013154 




.JSR 


PC, II OUT 


2045 


on i/6 


116203 


oooooi 




MOVH 


HH2),R3 


2046 


011202 


004 7 57 


i 5614 




JSR 


PC.DOUT 


20'' ' 


011206 


012/5/ 


000240 


000612 


MOV 


424 0, TOO 


2044 


011214 


004 73/ 


015254 




JSR 


PC, TUG 


204^ 


n 11220 


111205 






MOVH 


IR2 ).R3 


.050 


011222 


004/5/ 


015614 




JSR 


pc.dou; 


201.1 


011226 


022122 




P05: 


CMC 


< R 1 ) » , I R2 ) • 


205, * 


011250 


0052'. T 


ooo//? 




IMC 


CRCNJ 


2053 


011254 


005300 






utc 


RO 



PAGE 49 



S£U 0049 



(SET Sill UK P0ST6MBLE 

iSET POINTER TO POSTAMBLE 

j CLEAR HEADER FLAG 

j CLEAR CHAR CNTR 

I CLEAR DATA ERROR Fl A". 



jliO CHECK POST AMPLE 

{SET SIZE OK PREAMBU 

{SET POINTER TO PREAMBl [- 

{SET POINTER JO START OF READ BUFFER 

;BUMP ADDRESS POINTERS 

{CHECK DATA 

IF NOT GOOD: BR 

COMPARE COMPLIMENT RUE 

IF GOOD: BR 

SEE IF PRINT INHIBIT 

IF SO: BR 
iSEE IF DONE HEADER 
I IF SO: BR 

PRINT TEST HEADER 
SEE IF PREAMBLE CHICK 
It- NOT: BR 
I SET POSTAMBIE HFMDEH 

j St I PREAMBLE HEADER 
{PRINT HEADER 



{PR IN) CHAR NUMBER T All 

; PR INT CHAR NUMBER 

j PRIM ,.00D TAG 

j PR TNT GOOD CHAR 

jPRINT COMPLIMENT 

jPRINT BAD li\[, 

{PRINT BAD CHAR 



;PR IN I COMPltMENT 
I BUMP ADDRt S > PU1NU R' 
;H»>MP CHAR NUMBER 
;5tt U DUNE 



C/TE.BCO IM03-U16 XV? ? Cl T iX 
CZTEBC.PU 06 APR 84 10:51 



JOS4 


01 11? 56 


001266 




JOSS 


011240 


005 737 


000766 


J0S6 


011244 


00140*? 




jos ; 


011246 


000137 


010234 


J0S8 


OllJbJ 


00523/ 


000 ?bb 


J0S9 


OllJSb 


005037 


000616 


JOttO 


01126? 


00505 7 


000 7 72 


JOM 


01126* 


00505 7 


000764 


J0<>2 


011^7^ 


000137 


011276 


20b? 









MAC* 11 30( 1046) 



PD6: 







1 /[ 




06 


APR -84 10:36 


PAUL 


f>0 


BNE 


POO 




j IF NOT: BR 


TST 


PREFL 




{SEE IF PREAMBLE 


BEU 


P06 




; IF SO: BR 


vJMP 


DCHKX 




j GO TO EXIT ROUT INK 


INC 


PREFL 




{SET PREAMBLE FLAG 


CLR 


HDRFL 




j CLEAR HEADER R AG 


CLR 


CRCNT 




; CLEAR CHAR CNIR 


CLR 


DFRFt. 




j CLEAR DATA ERROR FLAG 


JMP 


W1DCHK 




j GO CHECK WRAP 1 DATA 



SEQ 0050 



C/TEBCO TM03 
CZTEBC.P11 



TEUWU// CLT II 
06-APR-84 10:31 



MACYU 30(1046) 06-APR-84 10:36 



W\ 
PAGE 51 



SEQ 0051 



2064 

2065 
2066 
2067 
20o8 
2069 
20 70 
20/1 
2072 
2073 
20 74 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2083 
2086 

208 7 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 

209 7 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 

210 7 
2108 
2109 
2110 
2111 
2\12 
2113 
2114 
2115 
2116 
2117 
211H 
2119 



011276 
011302 
011306 
011312 
011316 
011322 
011324 
011326 
011330 
011332 
011334 
011340 
011342 
011344 
011350 
011352 
011360 
011362 
011366 
011370 
011374 
011400 
011404 
011410 
011414 
011420 
011424 
011430 
011436 
011442 
011446 
011452 
011456 
011462 
011466 
011470 
011472 
011476 
011500 
011502 
011506 
011514 
011520 
011522 
011526 
011532 
011536 
011542 
011546 
011554 
011560 
011562 
011566 



012/00 
012701 
012702 
062702 
005737 
001401 
005302 
111105 
120512 
001007 
005737 
001001 
105105 
120562 
001510 
032777 
001104 
005737 
001020 
013704 
004737 
012704 
004737 
012704 
004737 
013703 
004737 
012737 
012704 
004 73 7 
013703 
004737 
012704 
004737 
111105 
110503 
005737 
C01001 
105103 
004737 
012737 
004 737 
110503 
004737 
012704 
00473/ 
116203 
004 737 
012737 
004737 
111203 
004 7 37 
00523 7 



17 7400 
017744 
020356 
000124 
000762 



000762 



000001 

020000 

000616 

000620 
013154 
017242 
013154 
017467 
013154 
001000 
013366 
000001 
017266 
013154 
0007 72 
013366 
017254 
013154 



000762 



013614 
000240 
013254 

013614 
017261 
013154 
000001 
013614 
000240 
013254 

015614 

000 764 



W1DCHK; 



WIDO: 



W1D0A: 
167210 W1D1: 



000616 W1D2: 



W102A 



000612 



000612 



jWAM 1 PE DATA CHECK***** 



MOV 4-400,30 

MOV 4WBUFF.R1 

MOV 4RBUFF.R2 

ADD 4124, R2 

TST W2ELG 

BEQ WIDO 

DEC R2 

MOVB CRD.RS 

CMPB R5.CR2) 

BNE WlOi 

TST W2FLG 

BNE W1D0A 

COMB R5 

CMPB R5.1CR2) 

BEQ W1D3 

BIT 420000, 3SWR 

BNE W1D3 

TST HDRFL 

BNE W1D2 

MOV EMADDR t R4 

JSR PC.TTOUT 

MOV 0WMSG16.R4 

JSR PC, 1 TOUT 

MOV 4WMSG32.R4 

JSR PC, T TOUT 

MOV PATRN,R3 

JSR PC.OCTP 

MOV 41, HDRFL 

MOV 4WMSG21,R4 

JSR PC. T TOUT 

MOV CRCNT.R3 

JSR PC.OCTP 

MOV 4WMSG17.R4 

JSR PC, T TOUT 

MOVB (RD.R5 

MOVB R5,R3 

TST U2FLG 

BNE W1D2A 

COMB R3 

JSR PC.DOUT 

MOV 0240, TOB 

JSR PC, TOG 

MOVB R5.R3 

JSR PC.DOUT 

MOV 4WMSG20,R4 

JSR PC. T TOUT 

MOVB 1CR2),R3 

JSR PC.DOUT 

MOV #240, T OB 

JSR PC, TOG 

MOVB CR;n,R3 

J'.R PC.DOUT 

INC OERFL 



{SET NUMBER OF CHAR TO CHECK 
{SET WRITE DATA POINTER 
} SET READ DATA POINTER 
{POINT TO START OF DATA 
{SEE IF WRAP 2 
{IF NOT WAM 2: BR 
{RESET POINTER 

;CHECK DATA 

;IF NOT GOODtBR 

{SEE IF WRAP 2 

l IF SO: BR 

{COMPLIMENT EXPT DATA 

{CHECK COMPLIMENT DATA 

l IF GOOD: BR 

;SEE IF PRINT INHIBIT 

{IF SO: BR 

{SEE IF DONE HEADER 

{IF SO: BR 

{PRINT TEST HEADER 

{PRINT BAD DATA TAG 

{PRINT PATRN TAG 

{PRINT PATTERN NUMBER 
{SET HEADER Ft AG 

{PRINT CHAR NUMBER TAG 

{PRINT CHAR NUMBER 

jPRNT GOOD TAG 

{GET GOOD CHAR 

{SEE IF WRAP 2 

{IF SO; BR 

{ELSE COMPL IMENT CHAR 

{PRINT CHARACTER 

; SPACF 

{PRINT CHAR 
{PRINT BAD TAG 
{PRINT BAD CHAR 
; SPAC- 
ER IN! CHAR 
{SET DATA bRROR FLAG 



C/UBCO 


TM03 Tfc. 


16. TU/7 


Cl.l 11 


C2Tt.BC. 


PI 1 06-APR-84 


10:31 


21*20 


011572 


122122 




2121 


011574 


105722 




2122 


011576 


005237 


0007/2 


.2 123 


011602 


000406 




2124 


011604 


005737 


000762 


2125 


011610 


001401 




2126 


011612 


000207 




2127 


OllbH 


000137 


010742 


2128 


011620 


U05200 




2129 


011622 


001770 




2130 


011624 


000137 


011326 


2131 








2132 








2133 








2134 


011630 


000240 




213b 


011b32 


012700 


000050 


2136 


011636 


012701 


017500 


2137 


011642 


00!T721 




2133 


011644 


012721 


177400 


2139 


011650 


005300 




2140 


011652 


001374 




2141 


011654 


012701 


017622 


2142 


011660 


012700 


000050 


2143 


011664 


012721 


0003 7 7 


2144 


011670 


012721 


177400 


2145 


011674 


005300 




2146 


0X16 '6 


0013 74 




2147 


011700 


000207 





MACY11 30(1046) 06APR-84 10:36 



N4 

PAGE 52 



SEQ 0052 



W1D3: 



W1'J4: 



U104A: 

U1D5: 



PPGENi 



IS 



2* 



CMP8 (RL)*,(R2)» 

TSTB (R2)* 

INC CRCNT 

BR W1D5 

TST W2FLG 

BEQ W1D4A 

RTS PC 

JMP PSCHK 

INC RO 

BEQ W1U4 

JMP W1D0 



s BUM? ADDRESS 
l BUMP ADDRESS 
j BUMP CHAR CNTR 

j SEE IF WRAP 2 

j IF" NOT: BR 

lELSE RETURN 

j GO CHECK POSTAMBLE 



{PREAMBLE/POSTAMBLE GENERATE SUBROUTINE********** 



NOP 
MOV 
MOV 
TST 
MOV 
DEC 
BNE 
MOV 
MOV 
MOV 
MOV 
DEC 
BNE 
RTS 



450, RO 

OPRF ,R1 

CR1)» 

0177400, CRD* 

RO 

H 

4P0ST.R1 

450, RO 

0577, (Rl). 

4177400 t CRl)f 

RO 

Pi 

PC 



j SET SIZE Or PREAMBLE 

j SET ADDRESS OF PRE 

l FILL TABLE 

I SEE IF DONE 

j IF NOT: BR 

I SET ADDRESS OF POST 

j SET SIZE OF POST 

j SET SYNC CHAR 

;FILL TABLE 

j SEE If DONE 

I IF NOT: BR 

{RETURN 






C.'TIBCO 


IMO.VH 


16 R'/7 


CM 11 


MAC 111 


30,1046) 


06 APR 


84 10; 36 PAGE 5 3 


C/THK. 


PI 1 06 APR 84 


10:31 












ol4$ 


















t :14--» 

0150 
01 r *l 












iF-nd or 


RECORD FORCE 


SUBROUTINE**** ♦ 


CI 1700 


00503 7 


0006 74 




EORPAj 


INC 


TEMPO 


1 SET WRAP FLAG 


;nv 


0! ' :o* 


017700 


166600 




fcORP : 


MOV 


SMR.RO 


iGET MAINT REG 


.*i c .? 


01* '10 


040 700 


000036 






UIC 


036, RO 


l CLEAR CURRENT OP CODf 


,'iw 


011716 


050 700 


000004 






BIS 


O04.R0 


1 SET EOR CI FAR OP CODE 


oiss 


1 1 700 


010077 


166606 






MOV 


RO.&MR 


1 DO EOR 


oi5t> 


Oil 706 


0407 7 7 


00003 7 


16t>600 




BIC 


03 7.53MR 


t CI. EAR EOR ANO MM 


015 7 


011754 


005000 








CLR 


RO 




0158 


011736 


010 701 


000000 






MOV 


00, Rl 




oiv 


011740 


0307 7 7 


000001 


166540 


fcORPii 


BU 


01, SCI 


j SEE If GO GONE 


0160 


011750 


00140 7 








Bt.ti 


F ORPO 


1 IF 50: BR 


J li> l 


011750 


005300 








DfC 


RO 




Jit. 1 


1 1 754 


0013 70 








BNE 


EORPl 


j AWAIT GO RESET 


016? 


OU 756 


005301 








DFC 


Rl 




;it>4 


011760 


001370 








BNF 


F0RP1 




016? 


011760 


030777 


oooooo 


1 66600 




BIT 


OOOOOO, 6J5WR 


(SEE IF ERROR PRIN* INHIBIT 


016b 


011770 


00101 7 








BNF 


EORPO 


j IF SO: BR 


016: 


01177? 


005737 


000616 






TST 


HORri 


tSEE IF DONE HEADER 


0168 


011776 


001004 








BNE 


EORPl A 


I IF SO: BR 


0169 


010000 


013704 


000600 






MOV 


EMADDR.R4 




0170 


010004 


004737 


013154 






JSR 


PC ,T TOUT 


j PRINT HEADER 


0171 


O10010 


010704 


017430 




E0RP1A: 


MOV 


0WMSG31.R4 




0170 


010014 


004 73 7 


013154 






JSR 


PC, T TOUT 


iPRINT FOR GO BIT ERROR 


0175 


0100^0 


005777 


166544 






TST 


aswR 


iSf.E IF HAL T ON ERROR 


0174 


010004 


100001 








BPl 


EORPO 


»U NOT} BR 


0175 


010006 


oooooo 








HALT 






01 ? t> 


010030 


000040 






EORPOj 


NOP 






oi :: 


010030 


005 7 3 7 


000674 






tst 


TEMPO 


iSFF IF WAM 


01. '8 


010036 


001004 








bnf 


tORPx 


»IF NOT: BR 


017^ 


010040 


000737 


000014 


000 746 




CMP 


014.WAM 


iBPANCH IF NOT WRAP 3 


0180 


010046 


001003 








BNF 


0* 




0181 


010050 


105777 


1664 34 




15: 


TSTB 


QC1 


iWAIT FOR RFADf 


0180 


010054 


100375 








BPt 


IS 




0183 


010056 


030777 


oooooo 


166504 


0«: 


BIT 


OOOO.tfSWR 


iSF F IF STATUS CHF:> 


0184 


010064 


ooiooo 








BNl 


E0RP3 


|U NOT: BR 


0185 


010066 


004737 


00 7010 






JSR 


PC.WSTCK 


jFl SI GO CHFCK ■jTA t U'.i 


0186 


010070 


000040 






F0RP3 : 


NOP 






018/ 


0100/4 


0307 77 


000400 


166466 




HIT 


0400,MSWH 


|SFF If DATA CHECK 


.'188 


OL0100 


001000 








BNF 


FOWP* 


j IF NOT t FJrt 


oies» 


010104 


004 / 5 7 


00 7410 






JSP 


PC.DCHK 


iH St i,0 CHFCK DATA 


01 '*0 


010110 


000040 






fcORPXt 


NOP 






01*#l 


OlOllO 


0050 1 7 


0006/4 






ClH 


t f mpo 


i Ci M« f L AG 


.--TV 


010116 


QQ00O7 








RIV» 


*>c 


{RETURN 



SEQ 0055 



ox<^ 



C!. 



C'UBCO 


TM05 U 


lb H'/.' 


C\ 1 1 I 


MAC U I 


HOC 1046) 


Ob APR 84 10. 


3b PAKE 


54 


C/HHC. 


►Ml Ob -APR -64 


10:31 
















21*4 






















21*5 
2l^b 
21^* 












• SCOPE. 


I OOP ON 


ERROR 




012120 


000240 






SCOPE : 


NOP 










21*tf 


012122 


032//V 


040000 


166440 




HI T 


040000, 


SSWR 




iSEF IF 1 OOP ON ERROR 


21** 


012130 


001001 








BNfc 


15 






iV SO; BR 


JJOO 


012132 


00020 / 








RTS 


PC 






ifclSfc EXIT 


..VOL 


012134 


000240 






1$: 


NOP 










iVO.: 


012136 


005726 








TST 


(SP)» 






l RESET STACK 


2203 


012140 


000240 








NOP 










2204 


012142 


000240 








NOP 










2205 

220b 
2208 

.220* 


012144 


000177 


166540 






JMP 


ascot p 






j LOOP ON ERROR 












j Tf ST 


ITERATION SUBROUTINE********** 


012150 


032777 


004000 


166412 


ITER* 


BIT 


04000, QSWR 




j SEE IF ITERATIONS 


2210 


012156 


001403 








BEQ 


21 






1 IE SO: BR 


.Vll 


012160 


00503? 


000 700 




Ui 


Cl-R 


ITCNT 






tCLEAR ITERATION COUNTER 




012164 


00020/ 








RTS 


PC 






lELSE EXIT 


22:3 


012166 


005/3/ 


001014 




2* J 


TST 


QOPCNTR 




jDO SINGLE SUBTEST ITERATION 


2214 


012172 


001/72 








BEO 


It 






lON FIRST PASS 


22!5 


0121/4 


005237 


000 /oo 






INC 


ITCNT 






jBUMP COUNTER 


22 lb 


012200 


025737 


000 700 


000604 




CMP 


ITCNT, ITAMT 




j SEE If DONE ALL 


k. 4.. 1 . 


012206 


001/64 








BLQ 


1$ 






iV SOs BR 


221 8 


012.U0 


005 726 








TST 


(SP)t 






;RF5f_T STACK 


22i*J 


012212 


01 , f 7Q0 


1664 74 






MOV 


aiTRt.p, 


RO 




iSFT ITERATION POINTLR 


222c 


012216 


000110 








JMP 


(RO) 






iGU ITERATE 



SEQ 0054 



2221 



CJItHCO TM05 
C/HBC.Pll 



n iti \v: : cm ii 

06 APR -84 10:31 



MAC ill SOI 1046) 06 APR 84 10:36 PAGE 55 



t. t. t. U 
2*?2* 

2224 

2225 

2226 

L. IL. L. ' 

"1 _"\ 

rv3o 

2231 
2232 
2233 
2234 
2235 

2236 
223: 

2238 
2239 
i^40 
2241 
2242 
0243 
2244 
2245 

2246 
224 7 

2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
^25* 
2258 
2259 
2260 
2261 
22b 2 
226 3 
2264 
2265 
2266 
226 / 
2268 
.V69 
22^0 

2271 

t '2M 

<V74 
i . • i 

t'.x ■ ' 

.V 76 
^V7 



012220 
01222b 
012234 
012242 
012246 
012252 
01225b 
012260 
012266 
0122/0 
012272 
012300 
012302 
012310 
012316 
012320 
012326 
012330 
012336 
012 44 
012346 
012354 
012362 
012364 
012372 
012374 
012402 
012410 
012412 
012416 
012420 
012422 
012426 
012430 
012434 
012440 
012444 



012446 
012450 
012454 



012456 
012462 
012466 
0124/2 
0124 /'4 
01/500 
012502 



012777 
013777 
013777 
013746 
042 716 
02272* 
001005 
0327 77 
001420 
000404 
032 777 
001013 
012777 
032777 
001774 
032777 
001374 
053777 
032777 
001407 
012777 
032777 
001774 
032777 
001374 
012777 
032777 
001404 
005737 
001012 
000403 
005737 
001406 
012704 
004737 
012710 
000207 



000240 
013716 
000002 



017 746 
042716 
12271' 
001006 
005 7 3 7 
00100? 
000005 



000040 
000622 
000662 
0007 74 

174377 
001400 



00000^ 
C00200 



0007 74 
000002 

000025 
000200 



000011 
000004 

000602 



000602 

015123 
013154 
002306 



000666 



166112 

000200 
00000.* 

001262 



SEQ 



'j j 



1662 72 INI T t 

166264 

166300 



000040 166234 



000040 166222 IS; 



166200 2$? 
166204 20* 



020000 166174 3»; 



166204 45} 

166156 

166134 
166140 5$: 



000020 166130 6$: 



166106 
166126 



7$; 
99$; 

100*: 
MTINT 



T TINT { 



{INITIALIZE SUBROUTINE********** 



mov 04o.sc; 

MOV DRVN.BCS 

MOV SLVN.STC 

MOV UOES.-(SP) 

BIC 0174377,(5?) 

CMP 01400, CSP)» 

BNF 1$ 

BIT 040, »0S 

BEQ 4$ 

BR "*% 

BIT 040, 80S 

BNE 4 $ 

MOV 07,3Cl 

BIT 0200, SOS 

BE 20$ 

BIT 020000, yos 

ONE 3$ 

BIS UOES.STC 

BTT 02.305 

BEQ 6$ 

MOV 025, &C1 

BIT 0200, 80S 

BEQ 5$ 

BIT 020,5)05 

BNE 6$ 

mov oii.aci 

BIT 04.3DT 

BEQ 7 J 

1ST SLVTtP 

BN8 1005 

BR 99$ 

TST SLVTiP 

BEQ 100$ 

MOV 0M5G65.M4 

j^r< PC, T TOUT 

MCV OTFNO.(SP) 

RTS PC 



NOP 
MOV 
RTI 



INIT 

SELECT DRIVE 

SELECT SLAVE 

GET TEST'S UNIT DESCRIPTION 

CLEAR ALL BUT DENSITY SELECT BITS 

BRANCH IF NOT NRZ C600 BPI) 

BRANCH If- SLAVE IS IN NRZ MODE 

(PES - 0) 

GO CHANGE DENSITY 

BRANCH TF SLAVE IS IN PE MODE 

(PES • 1) 

REWIND SLAVE 

WAIT FOR READf 

LOOP UNTIL REWIND IS COMPLETE 
(PIP - 0) 

LOAD UNIT DESCRIPTION 
BRANCH IF NOT AT BO' 

ERASE TO GET OFF BOT 
I OOP UNTIL DONE 

WAIT FOR SETTLEDOWN BIT TO CLEAR 

DO A DRIVE CLEAR 
BRANCH IF re 16 

BRANCH IF TU77 (Sl.VTrP * { ) 

TAKE tRRUR EXIT 

BRANCH If OPERATOR SFLFCTFD TF16 

TiPE -INCORRECT 51 AvK TtPE!!» PROGRAM ABORTED 

GO TO END 0' PROGRAM 
RETURN TO CALLER 



I MAG TAPE INTFRRuPT HANDLER* ********* 



RTRN.C5P) 
j TT> INTERRUPT HANDLER' 



j SET RFTURN TO (RTRN) 
» RE TURN 



MOV UTKB, ISP) |GtT CHARACTER 

BIC 0200, isP) i Clear pariti on 

CMPB 03,i 5P) j BRANCH H NOT CONTROl C 

HN* 1$ 

T'.l CHNFLG i INHIBIT *C \f CHAIN MUOl 

BNI 1$ 

RE St T 



C/TtBCO 


TM05-TI lt> TU/7 


CL1 11 


CZTEBC, 


Pll 06-APR-84 


10:31 


.v :s 


012504 


00013? 


000200 




012510 


122716 


000001 


22S0 


012514 


001017 




5 J8 1 


012516 


022737 


000176 


c\?8^ 


012524 


001016 




^8? 


012526 


012737 


177570 


2284 


012534 


004.* 3 7 


014116 


2285 


012540 


012 04 


015037 


22tf6 


01^544 


004", 37 


013154 


22a: 


012550 


004737 


014140 


*^88 


012554 


022 716 


000007 


223"* 


012560 


001006 





MAC Y 11 30(1046) 06 APR -84 



10:36 PAGE 56 



SfcQ 0056 



JMP W#?00 

1$: CMPB 01, (SP) 

BNE 2 * 

0005 70 CMP OSWREG.SWR 

bne 3$ 

0005 70 MOV 017 7570, SWR 

JSR PC, .SAVE 

MOV 0MSG63.R4 

JSR PC, T TOUT 

JSR PC,. RL STORE 

2$; CMP *7,(SP) 

BNE 4$ 



{RESTART PROGRAM 
{BRANCH IF NOT fA 

{BRANCH IK HARDWARE SWR INVOKED 

i INVOKE HARDWARE SWR 

{SAVE REGISTERS ON THF STACK 

I TYPE 'HARDWARE SWR IN USE' 

iRISTORb REGISTERS 
l BRANCH IF NOT 'G 



r 



C/TH1C0 


1M03 Tf lt» IU/7 


a ^ ii 


CZTf.BC. 


PU 06 -APR 84 


10:31 


2290 


012562 


012737 


000176 


2291 


012570 


004737 


014020 


2292 


012574 


000414 




2293 


012576 


122716 


000023 


2294 


012602 


001004 




2295 


012604 


112737 


000377 


229b 


012612 


000405 




229.' 


012614 


122716 


000021 


2298 


012620 


001002 




22 Q 9 


012622 


10503 7 


001176 


2300 


012626 


005 726 




2301 


012630 


000002 




2302 
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000570 3$ 



001176 



*$ 



5$ 



6$ 



SEG 0057 



MOV 


OSWREG.SWR 


{INVOKE SOFTWARE 


JSR 


PC.GTSUR 


{GET SWITCHES 


BR 


6$ 




CMPB 


023, (SP) 


j SEE IF tS 


BNE 


5J 


{BRANCH IF NOT 


MOVB 


$377,$CNTRLS 


{SET XOFF FLAG 


BR 


6* 




CMPB 


*2i.(5P) 


j SEE IF tQ 


BNE 


hi 


{BRANCH IF NOT 


CLRB 


*CNTRL$ 




TST 


(SP)> 


{POP CHARACTER 


RTI 




{RETURN 



SWR 



STACK 



mt.HCO IM05 
CZTt.BC.PU 



230? 

2304 

2305 
250b 
?$0 ■ 

2308 

2310 
•■?31i 

2312 
2313 

2314 

23 i 5 

23 lo 
251 ' 

2318 

2319 

2320 
2321 

2322 

2323 
2324 
2325 
2326 
232 7 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
P-.37 
2338 
2339 
2340 
2341 
2342 
2343 
2544 



n it* hi/; ci i ii 

Ob-APR-64 10:31 
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SfcQ 0058 



2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2 354 
2355 
2 356 
2357 

235tt 



012632 
012634 
012636 
012642 
012644 
012650 
012656 
012660 
012662 
012666 
012674 
012676 
012 702 
C12704 
012706 
012^14 
012716 
012722 
012726 
012730 
012736 
012740 
012/42 
012744 
012746 
012750 
012754 
012/60 
012762 
012 764 
012/72 
012/74 
013000 
013006 
013010 
013014 
013020 
013022 
013024 



010146 
011601 
005037 
005000 
004737 
122737 
001003 
000005 
000137 
122737 
001004 
005737 
001471 
000457 
122737 
001005 
012704 
004 737 
000742 
122737 
001012 
000241 
006000 
006200 
006200 
012704 
004 73 7 
005201 
000 7 30 
122737 
101402 
000157 
12273/ 
101002 
000157 
00523 7 
006300 
006 300 
006500 



000672 

013112 
000003 



000200 
000015 

000672 



01476? 
013154 



000060 

0130/2 
000070 

0130 72 
0006 7d 



000614 



TTR 
10* 



H: 



000614 11$ 



000025 000614 2$: 

014/65 

013154 

000177 000614 21$ 



000614 3$: 

000614 4 $ j 

5$; 



{TTY ENTRY SUBROUTINE; 



{ THIS SUBROUTINE IS USED BY THE TEST CONDITION 
{ENTRY ROUTINE TO READ THE RESPONSE ENTERED 
{AT THE TTY AND CHECK THEM FOR LEGALITY AND 
{LIMITS. ALL RESPONSE MUST BE TYPED IN OCTAL 
1(0-7) AND MUST FALL WITHIN THE LIMITS SET BY 
j THE CALLING ROUTINE. 

{IF AN ENTRY IS ILLEGAL OR OUTSIDE THE LIMITS. 
j A QUESTION MARK IS TYPED (?) AND THE RESPONSE 
{MAY BE REENTERED. 

{ENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND 
{MAY BE TERMINATED AT LESS THAN SIX BY TYPING A 
{CARRIAGE RETURN 

.********+************** *****4+++********************* 



MOV 

MOV 

CLR 

CLR 

JSR 

CMPB 

BNE 

RESET 

JMP 

CMPB 

BNE 

TST 

BEQ 

RR 

CMPB 

BNE 

MOV 

JSR 

BR 

CMPB 

BNE 

CLC 

ROR 

ASR 

ASR 

MOV 

JSR 

INC 

BR 

CMPB 

tuos 

JMP 

CMPB 

BHI 

JMP 

INC 

ASl 

ASl. 

ASL. 



Rl.-(SP) 
(SP).Rl 

TEMPI 

RO 

PC, T TIN 

#3. TIB 

11$ 

a*200 

<M5.TTB 
2$ 

TEMPI 

9$ 

6$ 

025, TIB 

21$ 

GMSG59.R4 

PC, T TOUT 

10$ 

0177,T1B 

3$ 

RO 

RO 

RO 

0MSG60.R4 

PC, T TOUT 

Rl 

1$ 

GbO.TIB 

4$ 

TINfrR 

0/0, UB 

5$ 

TINER 

TEMPI 

RO 

RO 



jSAVE CHAR COUNT 

{RESET CHAR COUNT (FOR tu) 

{CLEAR FIRST CHARACTER FLAG 

iGO READ CHARACTER 
{BRANCH IF NOT >C 



{RESTART AT 200 

{SEE IF CR 

{IF NOT; BR 

{SEE IF FIRST CHARACTER 

{IF SO: BR 

{ELSE GU LOAD VALUE 

{BRANCH IF NOT CONTROL U 

{TYPfc<CR><l F> 



{BRANCH Ih NOT ' RUBOUT 
{REMOVE LKST TYPED CHAR 

jTiPE ' V 

{DECREMENT CHAR RECEIVED COUNT 

{GET NE .T CHAR 

{SEE IF CHAR IS I ESS THAN 

I IF N01 ; BR 

{ELSE GO TO ERROR 

iSfcb IF CHAR IS GREATER THAN 7 

{IF NOT ; BR 

{EL SE GO TO ERROR 

{SET EIRS1 CHARACTER FLAG 

I SHIFT 3 LLFT 



C/TLBCO 


I NO 3 TE 


lb lu;.' 


CL 1 11 


C2TE0C. 


Pll 06 -APR 84 


10:31 


i\W* 


013026 


042/3 7 


17 77 70 


2360 


013034 


053700 


000614 


23M 


013040 


005301 




23b2 


013042 


001300 




2363 


013044 


020002 




2364 


013046 


10140? 




2St5 


013050 


000137 


0130/2 


!?3hb 


013054 


020300 




236 ; 


01305b 


10140? 




23oB 


013060 


00013/ 


013072 


2369 


1 3064 


0i00l5 




23/0 


0130th 


OO r i/?t 




2371 


013070 


000207 





-If 



MAC 1 11 30(1046) 06 APR-81 10:36 PAGE 5<> 



000614 



SLU 0059 





ere 


017/7/0, TIB } 




BIS 


TIB.RO { 




DEC 


Rl j 




BNE 


I* t 


6$: 


CMP 


R0.R2 } 




BLOS 


7$ j 




JMP 


TINE.R } 


7$: 


CMP 


P3.R0 j 




BLOS 


8* j 




JMP 


TINER t 


8$; 


MOV 


R0.CR5) i 


9${ 


TST 


( SP ) f ; 




RTS 


PC ; 



STRIP ASCII 

LOAD CHARACTER 

SEE IF DONE 

IE NOT: BR 

SEE IF EXCEEDED MAXIMUM LIMIT 

IF NOT: BR 

ELSE GO TO ERROR 

SEE IF BELOW MINIMUM LIMIT 

IF NOT: BR 

ELSE GO TO ERROR 

I OAO VALUE 

POP CHAR COUNT QV? STACK 

£XIT 



CMH1C0 


imo5 Tt.itv rtu; 


CI ! II 


MACY11 


30(1046) 


06 -APR 


v.. J i 
-84 10:36 PAGE; 


61 


CZTt.BC. 


Pll Ob -APR -64 


10:31 












24 U 


013254 


1057 77 


165312 




TOG: 


TSTB 


BTKS 


j SEE IF" INPUT AT KEYBOAR 


2412 


013260 


100024 








BPt. 


3* 


j IF SO, THEN 


.'415 


013262 


117737 


16S306 


00117/ 




MOVB 


UTKD.$CNTRl.S»l 


{MOVE CHARACTER AND 


2414 


013270 


142 737 


000200 


00117 7 




BICB 


#200, $CNTRl.S*l 


j MASK OFF PARITf BIT. 


24 1 c > 


01327b 


122737 


000023 


00117/ 




CMPB 


#23, JCNTRl.Sfl 


{SEE IF CHARACTER IS XOF 


2416 


013304 


001004 








BNE 


P.i 


j IF XOFF, THEN 


24 1 : 


01330b 


112/37 


00037 7 


00117b 




MOVB 


#377, SCNTRLS 


j SET XOFF FLAG 


2418 


013314 


000 757 








BR 


TOG 




2419 


013316 


122737 


000021 


001177 


2$: 


CMPB 


*21,$CNIRLS*1 


j SEE IF CHARACTER IS XON 


2420 


013324 


001002 








BNE 


3* 


iTF SO THEN 


2421 


013326 


105037 


001176 






CLRB 


• CNTRl.S 


{CLEAR XOFF FLAG 


2422 


013332 


105 737 


0011/6 




3$; 


TSTB 


♦CNTRLS 


;5EE IF IN XOFF MODE 


242? 


013336 


100746 








BMI 


TOC, 


ilF NOT THEN 


2424 


013340 


1057 7 7 


165232 






TSTB 


h)TP5 


{CHECK TF PRINTER READr 


2425 


013544 


100343 








BPl. 


TOG 


■ 


242b 


01334* 


11377/ 


000612 


165224 




MOVB 


TOB,aTPB 




242? 


013354 


000207 






TEX; 


RTS 


PC 


i RE TURN 



SEQ 0061 



C/.U UCO IM03 



Tt lb 10/: Ct I 11 



MACYU 30(1046) 06 APR -84 



C/TEBC. 

o4oa 

040^ 
04 50 


PI I 06 -APR -84 


10:31 








04 51 


013356 


010/37 


000001 


0450 


013364 


0004 02 




04 55 


013366 


O0SO37 


013610 


04 34 


013370 


010304 




04 35 


0133/4 


001007 




0436 


013376 


005/37 


013610 


04 3 7 


013400 


001004 




04 36 


013404 


004 737 


0135/0 


04 3^» 


013410 


00013/ 


013534 


,74 40 


013414 


030704 


100000 


044 1 


013400 


001406 




0440 


013400 


010704 


000001 


04 4 5 


015406 


004 737 


013550 


0444 


0134 50 


000137 


013444 


04 4 S 


013436 


005004 




0446 


013440 


004 737 


013550 


044 7 


013444 


010304 




0448 


013446 


006004 




0444 


0134S0 


006004 




04 SO 


0134S0 


006004 




04 SI 


0134S4 


006004 




04 SO 


0134S6 


000304 




04 S3 


015460 


004 737 


013550 


0454 


013464 


010304 




04 SS 


015466 


006004 




04 So 


0154 70 


000304 




04:./ 


015470 


004737 


013550 


04 5 S 


0154 /6 


010504 




04 V* 


015S00 


006104 




0460 


015500 


006104 




04e>i 


013S04 


000504 




0460 


015506 


004/57 


013550 


04*3 


013S10 


010504 




0464 


015514 


006004 




04*. 5 


01351b 


006004 




0466 


013S00 


006004 




04 -.7 


01350*' 


004 /37 


013550 


,'A^H 


01 5 V* 


010304 




0469 


015530 


004V57 


013550 



KS 

JO: 36 PAGE 60 



SfcQ 0060 



013610 



: OCTAL OUTPUT SUBROUTINE*** *#++**** ♦ 



OCT PI-!: 


MOV 


01, OH 




RR 


nCTPF.l 


OCTP: 


Cl.H 


Uf-l 


0CTPE1; 


MOV 


R3.R4 




bne 


OCTPO 




TST 


on. 




BNE 


OCTPO 




JSH 


PC.OCTPG! 




JMP 


0CTP3 


OCTPO: 


BIT 


'UOOOOO, R4 




BEU 


0CTP1 




MOV 


#1,R4 




JSR 


PC.OCTPG 




JMP 


OCTPO 


0CTP1: 


Cl.R 


R4 




JSR 


PC.OCTPG 


OCTPO; 


MOV 


R3.R4 




ROR 


R4 




ROR 


R4 




ROR 


R4 




RUR 


R4 




SWAB 


R4 




JSR 


PC.OCTPG 




MOV 


R5.R4 




ROR 


R4 




SWAH 


R4 




JSR 


PC.OCTPG 




MOV 


R3.R4 




R01 


R4 




ROl 


R4 




SWAH 


R4 




JSR 


PC.OCTPG 




MOV 


R3.R4 




ROR 


R4 




ROR 


R4 




ROR 


R4 




JSR 


PC.OCTPG 




MOV 


R^,R4 




JSR 


PC.UCTPG 



{CLEAR FLAG FOR I FADING ZERO 

I SEE IF' NUMBFR IS /FRO 

sIF NOT /FRO: BR 

j SEE IF PRINT ALL 

{IF SO: BR 

{ELSE PRINT ZERO 

{SPACE AND EXIT 

{SEE IE MSI) * 1 

{IF NOT: BR 

{PRINT 1 



{PRINT 

{POSITION DIGIT 
{PRINT DIGIT 

{PRINT DIGIT 3 
{PRINT DIGIT 4 



{PRINI DIGU 5 



c/u.hco 


IM03 TL16- ru// 


CI 1 II 


MAO 11 


30(1046) 


06 


APR -84 10:56 PAGE-. 


6^ 




C/TF.HC. 


Pll 06 -APR 84 


10:31 














?4 /O 


013534 


01?/37 


000?40 


0006 1? 


UCTP3: 


MOV 


G240, TUB 






24/1 


01354? 


004737 


01 3? 54 






J5R 


PC , TuG 


jPRINT 


SPACt 


?4 / ? 


013546 


000207 








RTS 


PC 


itXIT 




24/3 


013550 


04? 7C4 


1/7 7 70 




OCTPGj 


BIC 


#177/70, R4 






24 74 


013554 


001004 








BNK 


OCTPGO 






?4:*5 


013556 


005737 


013612 






rsr 


OH. 






24 76 


01356? 


001001 








BNF. 


OCTPGO 






24/ 7 
24 78 
24 79 


013564 


000?07 








RTS 


PC 






013566 


005237 


01361? 




OCTPGO: 


INC 


OFL 






2480 


CI 35 72 


05? 704 


000260 




0CTPG1: 


BIS 


0260, R4 






.7481 


013576 


010437 


00061? 






MOV 


R4.T0B 






2482 


01360? 


004737 


013254 






JSR 


PC. TOG 






2483 


013606 


010304 








MOV 


H3.R4 






2484 


013*10 


ooo?o / 








RTS 


PC 






2485 


013612 


oooooo 






OFL; 







{FIRST 


CHAR 


2486 





















ShQ 0063 



C/TEBCO TMOS-tt. ife TU/7 CI- 1 II 
CZTFBCPU 06 -APR -84 10:31 



M r :i 

MrtCYll 30(1046) 06-APR-84 iO;36 PAGE 64 



248? 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 



013614 
013620 
013624 
013630 
013632 
013640 
013642 
013650 
013652 
013660 
013664 
013666 
013670 

013672 

013676 
013700 
013704 
013710 
013714 



013716 
013720 
013722 
013724 
013726 
013730 
013732 
013736 
013740 
013742 
013746 
013750 
013752 
013/54 
013756 
013760 
013764 
013766 
013772 
013774 
014002 
014006 
014012 
014016 



012704 
11033? 
105777 
100375 
132 737 
001404 
012777 
000403 
012777 
006337 
005304 
001356 
000207 

013703 

000303 
004 73 7 
013703 
004 737 
000207 



010304 
000304 
006004 
006004 
006004 
006004 
004737 
010304 
000304 
004737 
0304 
006004 
006004 
006004 
006004 
004 7 37 
010304 
004 73/ 
000207 
012737 
042 704 
050437 
004/5/ 
000207 



000010 
000612 
164746 

000200 

000061 

000060 
000612 



000676 

013614 

000676 
013614 



013774 
013774 



013774 

013774 

000260 
177760 
000612 
Q13254 



SEQ 0064 



DOUTi 
1$: 



000612 

164730 

164720 2*: 
3$: 



DOUTD 



SNPT; 



000612 SNPG: 



;DATA CHARACTER OUTPUT SUBROUTINE** ♦ ♦ *** ***** 



MOV 

MOVB 

TSTB 

BPL 

BITB 

Bfc'Q 

MOV 

BR 

MOV 

A St 

DEC 

BNE 

RTS 

MOV 

SWAB 

JSR 

MOV 

JSR 

RTS 



,710, R4 

R3, TOB 

BTPS 

15 

#200. TOB 

2$ 

#06l,aTP8 

3$ 

tt060,6)TPB 

TOB 

R4 

1$ 

PC 

TEMPS, R3 
R3 

PCDOUT 
TEMPS. R3 

PCDOUT 
PC 



j SET NUMBER TO PRIN' 



SERIAL NUMBER PRINT SUBROUTINE********** 



MOV 

SWAB 

ROR 

ROR 

ROR 

HOR 

JSR 

MOV 

SWAB 

JSR 

MOV 

ROR 

ROR 

ROR 

ROR 

JSR 

MOV 

JSR 

RTS 

MOV 

BtC 

HIS 

JSR 

RTS 



R3,R4 

R4 

R4 

R4 

R4 

R4 

PC, SNPG 

R3,R4 

R4 

PC . SNPG 

R3.R4 

R4 

R4 

R4 

R4 

PC, SNPG 

R3.R4 

PC , SNPG 

PC 

«260, TOB 

i'M 7 7 760,R4 

R4 , TOB 

PC, TOG 

PC 



I GET URST DIGIT 
jPRINT 

{GET SECOND DIGIT 

{PRINT 



{PRINT THIRD DIGIT 

I PRINT P'OURTH DIGIT 

{EXIT 

{SET BASE 

jMASK DIGIT 

j SET ASCII 

jTiPE DIGIT 

j RE TURN 



c/u-bco 


UI03-U u>/iu/; 


CM Jl 


CZTE-.BC. 


Pll 06 -APR -84 


10:31 


2537 
2538 








2539 








2540 


014020 


022 737 


000W6 


254 1 


014026 


001032 




2542 


014030 


004737 


0141U 


2543 


014034 


012704 


016426 


2544 


014040 


004737 


013154 


254 5 


014044 


017703 


164520 


2546 


014050 


004 73 7 


013356 


254 7 


014054 


012704 


016436 


2546 


014060 


004737 


013154 


2540 


014064 


013705 


000570 


2550 


014070 


012701 


00000/ 


25M 


('14074 


012702 


177777 


2552 


014100 


012703 


000000 


2553 


014104 


004 73 7 


012632 


2554 


0141.10 


004 737 


014140 


2550 


014114 


000207 




2556 








2557 








2558 


014116 


010546 




2559 


014 120 


010446 




2560 


014122 


010346 




2561 


014124 


010246 




25b2 


014126 


010146 




2563 


014130 


010046 




2564 


014132 


016646 


000014 


2565 


014136 


000207 




2566 








2567 








2566 


014140 


012666 


000014 


2569 


014144 


012600 




2570 


014146 


012601 




2571 


014150 


012602 




2572 


014152 


012603 




2573 


014154 


012604 




2574 


014156 


012605 




25 75 


014160 


000207 




2576 
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SEU O065 



{THIS ROUTINE GETS THE NEW VALUE FOR THE SOFTWARE SWITCH REG 



000570 GTSWR 



1*: 



CMP 0SWRF.G.SWR 

BNE 1$ 

JSR PC ..SAVE 

MOV <MMSWR,R4 

JSR PC.TTOUT 

MOV SJSUR.R3 

JSR PC.OCTPE 

MOV 0SMNEW,R4 

JSR PC.TTOUT 

MOV SWR.R5 

MOV 07, Rl 

MOV 0177777, R2 

MOV 00, R3 

JSR PC.TTR 

JSR PC,. RESTORE 

RTS PC 



;8RANCH IF SOFTWARE SWR NOT 
j INVOKED 

l SAVE REGISTERS ON THE STACK 
{TYPE 'SWR - • 

GET CURRENT SETTING 
AND TYPE THEM 
TYPE ' NEW * ' 

jTTR ROUTINE RETURN NEW VALUE 
j LIMIT RESPONSE TO 7 CHARS 
{BETWEEN AND 17777/ 

j GET RESPONSE 
{RESTORE REGISTERS 
{RETURN TO CALLER 



TO (R5) 



j {ROUTINE TO SAVE REGISTERS ON THE STACK 



SAVE: 



MOV *5,-(SP) 

MOV K4.-C5P) 

MOV *3,-(SP) 

MOV Kc.-CSP) 

MOV *1.-(SP) 

MOV *0,-(SP) 

MOV 14(SP),-(SP) 

RTS PC 



R5 
R4 
R3 
R2 
Rl 
RO 



IS 
IS 

T r"* 

j. .:■ 

15 

IS 
IS 



SAVED 
SAVED 
SAVED 
SAVED 
SAVED 



nr 

AT 
AT 
AT 
AT 
AT 



12CSP) 

10CSP) 
6CSP) 

4(SP) 
2(SP) 
(SP) 



{PUSH RETURN PC ON THE STACK 
{RETURN TO CALLER 



{{ROUTINE TO RESTORE REGISTERS SAVED ON THE STACK 



.RESTORE: MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 



CSP)*,14CSP) 

(SP)*,*0 
CSP)*,*1 
(SP)».*2 
(SP)*>3 
C5P)»,*4 

(SP)*,*5 

PC 



{{STORE RETURN PC ON STACK 



: {RETURN 



C»'TLBCO TM05 
C/Tt.BCJMl 



Tl lb K»// CI 1 II 
Ob -APR 84 10:51 
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SfcQ 0066 



os.'s 

05 :* 

0580 

0581 
0582 

0585 
2586 
058? 
0588 
058'* 
05*0 
05*1 
05<V 
059? 

05*4 
05*5 

0596 
059? 
0598 
0599 
0600 
0601 
2602 
2603 
0604 
2605 
0606 
ObO? 
0608 
Ob09 
Ob 10 
0611 
06 12 
0613 
0614 
06 1 5 
0616 
06 K 
0618 
0619 
0620 
06cU 
060.: 
2625 
0624 
2625 
0626 
062 ' 
0608 
06*'9 
Ob'.O 
O'.'l 
^6i<> 



014160 
014170 
014176 
014204 
014212 
014000 
014006 
014234 
014242 
014050 
014056 
014264 
014070 
014 3C0 
014304 
014310 
014320 
014326 
014334 
014342 
014350 
014356 
014364 
014366 
014374 
014402 
014405 
014412 
014420 
014423 
014430 
014436 
014444 
014445 
014452 
014460 
0144t>6 
014471 
014476 
014504 
014512 
01451b 
014524 
014525 
014532 
014554 
014542 
014550 
014551 
014556 
01 45b 4 
0145b ■' 
0145 74 



000445 
050055 
052524 
04 7 1 1 7 
046040 
050040 
040520 
00011 1 
042524 
005045 
050503 
050101 
040440 
005124 

052045 
0414 74 
020117 
047U1 
042522 
042523 
020103 
051505 
021445 
054105 
052117 
042126 

122 
047516 
052120 

045 
054105 
046123 

043 

045 
041440 
052502 
000122 

045 
020105 
041040 
051101 
042440 

045 

040 
021440 
046445 
051524 

04 I 

045 
052111 
033455 

045 
QZWtd 



046524 
030505 
03346 7 
051124 
043517 
0515C5 
052122 
024040 
041502 
025052 
042522 
020105 
020124 
025052 
050131 
037122 
042524 

052101 
050123 
023040 
04 7524 
040524 

052120 
051040 

043 
053103 
020124 

04 3 
04 7516 
051511 
053101 

042522 
04711/ 
020123 
04 3 
05112/ 
04 7503 
051525 
021440 
050130 

041500 

020102 
32040 

051115 
020103 

04 *. 

ObO 11 1 
QA3 



031460 
02?4bb 
041440 
04611/ 
041511 
000104 
044440 
055103 
024460 
051501 
050040 
051511 
04/500 

020105 
052040 
046520 
020105 
04711/ 
05 7040 
051040 
050122 

04 7055 
041505 

026504 
054105 

006516 
020124 
020105 

042101 
020104 
040520 

052111 
05211b 
050040 

020124 

042106 

044502 
030055 

041040 
050461 



I MK 55 AGfc TABU********** 
M5G1: «ASClI'**rM03 Tei6/TU77 CONTROL LOGIC TC.iT PART 11 ( C/H-BCO )' t » »H 



M5G10 
M5G13 
MSG14 



ASCII /^♦♦♦ASIiVRh TAPE- IS AT BOT***/ 



ASCII /*TYPL <CR^ TO TfcRMINATfc RESPONSE I *C TU RESTARTS. 



MSG6j .ASCII /F.XPT NOT R{-.CVD&-- 



MSGZs .ASCII /RCVD NOT MPT« 



MSG9: .ASCII 'UNONMIST 51 AVf 



M5G10: .ASCII 'KRKAO CON! BUS PAR « 



MSGllJ .ASCII 'tfWHirt CUNT BUS PAR ft 



.ASCII .' MPT o 
.A'.Cl I RC;[) i) ■ 

.ASCII /«MH HI TS 4 Off 



MSGl'.j .ASCI 1 .'#MH HI T', Vx-tQ/ 



05UQ5 MSGl6t 4 ASC11 /#1UH; ti< 



CUHCO 


TM03 TE 


lb Tl.'/7 


CI T 11 


MAC 111 


30( 1046 


C2Tf.BC, 


PU 06 APR tf4 


10:31 






2t>33 


01457 7 


045 


041524 


041040 


MSlilBi 


2634 


014604 


052111 


020123 


031061 




2t>35 


014612 


030055 


021440 






063o 


014616 


04 3045 


0201C3 


044502 


MSG19; 


2^37 


014624 


051524 


030440 


026465 




2t>3* 


014632 


020060 


043 






263^ 


014635 


040 


02007 7 


04 3 


MSG40: 


2fc40 


014641 


045 


042445 


042) 16 


M5G41: 


264 1 


014646 


04 7440 


020106 


040520 




2642 


014654 


051523 


021440 






2643 


014660 


051045 


043505 


051511 


MSG44: 


2t>44 


014666 


042524 


020122 


052123 




2645 


014674 


051101 


035124 


021440 




2Mb 


014702 


053045 


041505 


04 7524 


MSG45s 


264 "* 


014/10 


020122 


042101 


051104 




2o48 


014716 


051505 


035123 


021440 




2649 


014 724 


052045 


030115 


020063 


MSG57: 


2b50 


014732 


051104 


053111 


035105 




2651 


014740 


021440 








2652 


014742 


052045 


030505 


027466 


MSG58; 


2653 


014750 


052524 


033467 


051440 




2654 


014756 


040514 


042526 


020072 




2655 


0147*4 


043 








2656 


014765 


045 


04 3 




M5G59- 


2657 


014767 


134 


04 3 




MSG60; 


2658 


014771 


045 


042522 


047515 


MSG62; 


2659 


014 7 76 


042526 


052040 


042115 




2660 


015004 


020120 


051106 


046517 




2661 


015012 


051440 


040514 


042526 




266? 


015020 


052040 


020117 


042502 




2663 


015026 


052040 


051505 


042524 




2664 


015034 


022504 


043 






2665 


015037 


045 


040510 


042122 


MSG63: 


2666 


015044 


040527 


042522 


051440 




266 ? 


015052 


051127 


044440 


020116 




2668 


015060 


051525 


022505 


04 3 




26*9 


015065 


045 


046123 


053101 


MSG64 s 


26 70 


015072 


020105 


054524 


042520 




26 71 


015100 


024040 


036460 


042524 




26 7? 


015106 


033061 


030454 


0520/5 




267? 


015114 


033525 


024467 


0200 72 




26/4 


015122 


04 3 








2675 


015323 


045 


044445 


041516 


M5G65{ 


26/6 


015130 


051117 


042522 


052103 




26 7 7 


015136 


051440 


040514 


042526 




26 .'8 


015144 


052040 


050131 


020505 




26 ;«* 


015152 


020441 


050040 


04 ?t??. 




26 HC 


015160 


051107 


046501 


040440 




*'6H1 


015166 


04 /502 


052122 


042X05 




2682 


Q15174 


021445 









O 



.ASCII /*TC BUS 12 iU 



ASCII /tf'C BITS 15-0 (>/ 



ASCII / ? <*/ 

ASCII /**END OF PASS 0/ 



.ASCII /^REGISTER START j tf/ 



.ASCII /^VECTOR ADDRESS: 0/ 



.ASCII /*TM03 DRIVE : 0/ 



.ASCII '*T£16/TU/7 SLAVE: 0' j » .» 



.ASCII /#*'■' 
.ASCII /\t>/ 
.ASCII /^REMOVE TMUP ► RUM sLAVt TO HE TESTED*0 



SEQ 0067 



.ASCII /^HARDWARE 5WR IN USt#0 



.ASCII 'tfSLAVE T y Pf I 0- TE16, 1 * TU ' > ) : t> 



.ASCII /MINCQRRbCI SL AVE TtPEJJ! PROGRAM AaORlLO*^ 



C/TUUTO 


TM03 It 


1* \v:: 


CM U 


MAC HI 


C**UBC. 


►Ml Ob APR 84 


10:31 




2683 










2684 










2t>85 


015176 


022445 


04 7514 


04450 7 


2686 


015204 


020103 


042524 


052123 


2687 


015212 


030440 


0200 72 


051127 


2688 


015220 


050101 


031440 


04 7054 


268^ 


015226 


055122 


04 7054 


051117 


2*90 


015234 


040515 


026114 


04211? 


2691 


015242 


021504 






2692 


015244 


022445 


047514 


044507 


2693 


015252 


020103 


042524 


052123 


2694 


015260 


031040 


020072 


051127 


2695 


015266 


050101 


031440 


050054 


2696 


015274 


026105 


047516 


046522 


.26*7 


015302 


046101 


04 7454 


042104 


2c98 


015310 


043 






26*9 


015311 


045 


046045 


043517 


4? 700 


015316 


041511 


052040 


051505 


2701 


015324 


020124 


035063 


053440 


2702 


015332 


040522 


020120 


026062 


2703 


015340 


051116 


026132 


047516 


2704 


015346 


046522 


046101 


04 7454 


2705 


015354 


042104 


043 




2706 


015357 


045 


046045 


043517 


2707 


015364 


041511 


052040 


051505 


2 708 


015372 


020124 


035064 


053440 


2709 


015400 


040522 


020120 


026062 


2710 


015406 


042520 


04 7054 


051117 


2711 


015414 


040515 


026114 


042117 


2712 


015422 


021504 






2713 


015424 


022445 


047514 


04450 7 


2714 


015432 


020103 


042524 


052123 


2715 


015440 


032440 


020072 


05112 7 


2716 


015446 


050101 


030440 


04 7054 


271 7 


015454 


055122 


04 7054 


051117 


2718 


015462 


040515 


026114 


042117 


2719 


015470 


021504 






2720 


015472 


022445 


047514 


044507 


2721 


015500 


020103 


042524 


052123 


2 722 


015506 


033040 


020072 


051127 


2723 


015514 


050101 


030440 


050054 


2 724 


015522 


026105 


047516 


046522 


2 725 


015530 


046101 


04 7454 


042104 


2 726 


015536 


043 






2 72 7 


015537 


045 


046045 


043517 


2728 


015544 


041511 


052040 


051505 


2/29 


015552 


020124 


03506 7 


053440 


2 730 


015560 


040522 


020120 


026060 


2731 


015566 


051116 


026132 


04 7516 


2 732 


015574 


046522 


046101 


04 7454 


2735 


015602 


042104 


04 3 




2 7 34 


015605 


045 


046045 


04 3517 


2 ■' 35 


015612 


041511 


052040 


051505 


.<>? 7 .h 


015620 


020124 


3006 1 


0200 72 




015626 


05112 7 


050101 


50040 


2 7 38 


0156 34 


050054 


026105 


04,'5U> 



MAC HI 30(1046) 06 APR 84 
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sea 0068 



I TEST HEADER**** *♦**♦♦ 

MSIU; .ASCII /«*l.UGIC TEST lj WRAP 3.NR*? .NURMAi .ODD*/ 



MSLT2: , ASCII /**LOGIC TEST 2: WRAP 3, PE .NORMAL ,01)00/ 



MSLT3: .ASCII /tWLOGIC TEST 3s WRAP 2.W.N0RMAI .ODD ft/ 



MSLT4: .ASCII /rfKLOGIC TEST 4 5 WRAP 2, Pt .NORMAL .ODD*/ 



MSLT5: .ASCII /**LOGIC TEST 5t WRAP 1 ,NR/ .NORMAL ,ODU*. 



MSLT6: .ASCII /rfKLUGIC TEST 6: WRAP 1 ,P|- .NORMAL. .ODD*/ 



MSLT7: .ASCII /**l UGIC TEST 7: WRAP O.NR/.NORMAl ( ODD* 



MSLUG: .ASCII /**L0U1C TEST 10: WRAP .PL .NORMAL. , ODD* 



CJTHteO TMOS 
CZTEBC.P11 



TEU*.- TU.V Cl.1 II 
06 -APR 84 10:31 



MACtll 30(1046) 06 APR -84 



10:56 PAGE-. 69 



SEQ 0069 



0'3<> 

i? 740 

0--41 

.'40 
074? 

0744 
745 

746 

0747 

0748 
0749 

/50 

0/51 
0750 

753 
0*54 

0755 

756 
0757 
0758 
759 
0760 
0761 
076c 1 
763 
0764 
0765 
0766 
0767 
0768 
0769 
0770 
0771 
07 70 
^773 
7 74 
0775 
0776 
777 
778 
07 79 
0780 
0781 
780 
0^83 
0/84 
785 
0/86 
78 7 
788 
0/89 
790 
0/91 

79', 
2/94 



015640 
015650 
015653 
015660 
015666 
015674 
015700 
015710 
015716 
015704 
015730 
015740 
015746 
015754 
015760 
015770 
015774 
016000 
016010 
016016 
016024 
016030 
016040 
016046 
016054 
016055 
016062 
016070 
016076 
016104 
016110 
016100 
016106 
016134 
016140 
016150 
016156 
016164 
016172 
016200 
016201 
016206 
016214 
016000 
016030 
016036 
016244 
016050 
016060 
016266 
016071 
0160 76 
016304 
01b3lO 
016*00 
016306 



046520 
040104 
045 
041511 
000124 
04 7503 
046525 
050111 
0344 70 
000445 
000103 
030440 
051117 
050115 
000104 
033060 
000445 
000103 
030440 
040526 
044 522 
044520 
03*115 
034115 
043 
045 
041511 
020124 
053105 
051101 
040522 
034470 
034470 
020445 
020103 
030440 
040505 
042526 
034115 
043 
045 
041511 
020124 
051103 
051122 
047117 
046107 
041501 
020114 
051505 
045 
041511 
000124 
051103 
051122 
047117 



046101 
043 
046045 
050040 
030461 
042522 
020120 
020105 
033060 
04 7514 
042524 
035060 
000105 
051040 
046450 
021451 
047514 
042524 
035063 
020116 
054524 
042524 
031471 
031471 

046045 
052040 
032061 
047105 
050111 
042101 
031463 
032063 
047514 
042524 
035065 
020104 
051502 
030071 

046045 
052040 
033061 
020103 
041505 
051440 
020105 
026113 
051106 
04 3 
04604 5 
052040 
033461 
000103 
04 1505 
046440 



047454 

04 3517 
051505 
0200 70 
040040 
051107 
046450 
001451 
044507 
050103 
041440 
050504 
040505 
034470 

044507 
052103 
040440 
040520 
053440 
004040 
000063 
004464 

043517 
051505 
020070 
050040 
000131 
046450 
046440 
021451 
044507 
052103 
051040 
040500 
004105 
004466 

043517 
051505 
020072 
04 7503 
044524 
04/1U 
051104 
046101 
046501 

04351/ 
051505 
0000/..' 
04 7503 
044504 
046105 



MSLTll: .ASCII /tftfLUGIC TEST 11: CORE DUMP WRITE CM8906W 



MSLT12; .ASCII /fWLOGIC TEST 10: CORE DUMP READ (M8906)#/ 



MSLT13: .ASCII /**L0G1C TEST 13; EVEN PARITY WRITE (M8933 M8934),'// 



MSLT14: .ASCII /**LOGIC TEST 14 { EVEN PARITY RE/UKM895* M8934)fr/ 



MSLT15; .ASCII /#*LUGIC TEST 15: READ Rt VERSEt M8906 )fl/ 



MSI. T 16: .ASCII /«*LUGIC It SI 16: CRC CURRECT10N SINGLE TRACK, ALL FRAMES*- 



HSLTW: .ASCII /**l OGIC TfcST Ws CRC CORRECTION Mt.it T iPt t BAO TRACKS*/ 



C/TIBCO 


1M05 It 16 1U/7 


CI 1 II 


M ACt 11 


30(1046) 


CZTF.BC. 


PI I 06 -APR -84 


10:31 






2 705 


016334 


044524 


046120 


020105 




27<*S 


016342 


040502 


020104 


051124 




2797 


016350 


041501 


051513 


04 3 




2 79$ 


016355 


045 


046045 


043517 


MSLT20: 


2 799 


016362 


041511 


052040 


051505 




2800 


016370 


020124 


030062 


020072 




2801 


016376 


042522 


042101 


051040 




Jt*0^ 


016404 


053105 


051105 


042523 




2805 


016412 


04 7054 


055122 


0534 54 




2604 


016420 


040522 


020120 


021463 





Ob APR -84 10 i 36 



- H 
PAGb 70 



SE:Q 0070 



.ASCII /KKLOGIC TfcST 20; READ REVERSE ,NR/, WRAP 50/ 



C/TEBCO 1M05-Ttlt» TV 7 7 CL T II 
CZTEBC.PU 06-APR-84 10t31 



MAO 11 30(1046) 06 -APR -84 10:36 



PAGE 



71 



SbQ 0071 



2806 

;?so: 

2809 
2810 

281 1 

2812 
2813 

2814 

2815 
251b 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2852 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
285 / 
2858 
2859 
2660 



016426 
016434 
016436 
016444 



016446 
016446 
016450 
016452 
016454 
016456 
016460 
016462 
016464 
016466 
016470 
016472 
016474 
016476 
016500 
016502 
016504 
016506 
016510 
016512 
016514 
016516 
016520 
016522 
016524 
016526 
016530 
016532 
01S534 
016536 
016540 
016542 
016544 
016546 
016550 
016552 
016554 
016556 
016560 
016562 
016564 
016566 
0165/0 
0165/2 
Q16S74 



051445 051127 036440 SMSWR 

021440 

04/040 053505 036440 $MNEW 

021440 



000100 
177777 
177777 
177777 
17/777 
17/777 
177777 
17/777 
177/77 
177/7/ 
177777 
177777 
177777 
17777/ 
177777 
17777/ 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
7 7 7/ 
17/777 
177777 
177777 
177777 
177777 
177 777 
1/77/7 
17777/ 
1/77/7 
177777 
177777 
17 7 77? 
17 7/7/ 

in 17 7 
1 / / / / / 
177? n 

177 777 



j TAG MESSAGE 
.ASCII /*SUR - #/ 
, ASCII / NEW - 0/ 



.fcVEN 

;WRITE BUFFER 



WDATA 



C/TbBCO TM03-Ttlb/TU/; CM II 
CZTEBC.P11 06 -APR -84 10:31 



2*17 
2918 
2919 

2920 
292 I 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
293]. 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 

2942 

2943 
2944 
2945 
2946 
294 7 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
296 7 
2968 
2969 
29/0 
29/1 
2972 



016744 
016746 
016750 
016752 
016754 
016756 
016760 
016762 
016764 
016766 
016770 
016772 
016/74 
016776 
017000 
017002 
017004 
017006 
017010 
017012 
017014 
017016 
017020 
017022 
017024 
017026 
017030 
017032 
017034 
017036 
017040 
017042 
017044 



017046 
017054 
017062 
01/064 
017072 
017100 
017105 
017112 
017120 
017126 
01/132 
017140 
017145 
017152 
01/157 
017164 
01/165 
0W172 
01717/ 
017204 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 



051445 

042440 

021445 

050045 

04 7040 

020122 

045 

054105 

052116 

042526 

041445 

053445 

045 

043045 

045 

04 3 

045 

042445 

041- 

041445 



052105 
051122 

052101 
046525 
020075 
047516 
051511 
042040 
021445 
030523 
020103 
040502 
020103 
051503 

051504 
020122 

051501 
020103 
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lb 
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5EQ 0073 



C50125 
051117 

047122 
042502 
043 
026516 
040524 
C44522 

021440 
043 

021440 
04 3 

020062 

021440 
04 3 

021440 
04 3 



WMSG2: 
WMSG3: 
WMSG4 : 



WMSG6: 
UMSG6A 

WMSG6B 
WMSG6C 
WMSG60 

UMSlifch 

UM5G6F- 

UMSG6U 

WMSG6H 



j WRAP AROUND MESSAGES****** 
.ASCII /*SETUP ERRORS/ 

.ASCII /*PATRN NUMBER - #/ 

.ASCII /KN0NEX1STANT DRIVE**/ 



.ASCII 
.ASCII 
■ASCII 
.ASCII 
.ASCII 

.ASCII 
.ASCII 
.ASCII 
.ASCII 



/*C>1 ti/ 

/•wC o/ 
/•BA 0/ 

/*FC a 

/*CS2 ()>' 

/*D5 0/ 

/rffR <>■' 

/ft AS it/ 

/*CC #/ 



Me 



C/TfcBCO TM03 
CZTf.BC.P1l 



TM6/1U// CI I II 
06-APR-84 10:31 
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CROSS REFERENCE TABLE -- USER SYMBOLS 



A DDR. 

AS 

ASF 

ATAK 

BA 

CC 

CHNFL.fi 

CRCDAT 

CHCFLG 

CRCNT 

CRCPAT 

cs 

CI 

DATAD 

DATAO 

DATA1 

DATA2 

DATA3 

DATBL 

DATC 

DAT1 

DAT1A 

DAT? 

DAT 3 

DAM 

DB 

DCHK 

DCHKA 

DCHK AG 

DCHKA1 

DCHKA2 

DCHKB 

DCHKBO 

DCHKC 

DCHKD 

DCHKF. 

DCHKFL 

DCHKX 

DCHK XI 

DCHKO 

DCHK1 

DCHK 1 A 

DCHK2 

DCHK2A 

DCHK2B 

DCHK3 

DCKEP 

DCKbPO 

DCKE.0 

DCKEl 

DCKE10 

DCKEl 1 

DCKE12 
UCKE2 

DO<E* 
DCKE4 



000/44 
000526 
0007,26 
000716 
000514 
000530 
001262 
004346 
001020 
000772 
004344 
000520 
000510 
000756 
001032 
001034 
001036 
001040 
001032 
000752 
005140 
005144 
005160 
005164 
005172 
OOOt-32 
00 7412 
0071X0 
00 7 A 3* 
00 7 r, 40 
00 7:$ 76 
0076:50 
00 7660 
007720 
007726 
010274 
001016 
010234 
010252 
00 7/30 
007762 
010020 
010110 
010154 
010156 
010204 
010702 
010734 
010334 
010344 
010626 
010666 
010676 
010354 
010 364 
010406 



774* 
691V? 
767* 
763* 
686# 
692* 
882* 
1274* 
796* 
785* 
1261* 
688* 
684* 
779* 
809* 
810* 
811* 
812* 
808* 
777* 
809 
1359 
CIO 
811 
812 
693* 
1706 
1796 
1793 
1802 
1609 
1815 
1613 
1632 
1830 
1794 

795* 
1823 
1 786 
1828 
1843 
184 7 
1839 
1874 
1869 
1885 
1966 
1993 
1917* 
1920* 
1939 
1982 
1985 
1921 
1924 
1931 



SFQ 0077 



1521* 

88 7* 

1276 
969* 

1791* 

127 7 
984* 
925 

1454* 



1416 

1453* 

1426* 

M27* 

1435* 

1440* 

1445* 

1783* 

1798 

1795* 

1604 

1814* 

1817 

1826* 

1835* 

1837* 

1908* 

1378* 

1889 

1896 

1834 

1846* 

1854* 

1841 

1880* 

1872 

1887* 

19/3 

1995* 

1986 

1926 

1941 

1984* 

1 98 f * 

1923* 

1 92 .* * 

1934* 



898 
1279 

1271 + 
1858 
1278 
988* 
989 
1469* 



1468* 
1436 



2189 

1800* 

1806* 
1820 



1381* 
1893 
1898 
1836 



1868* 

1877 

1988* 

1975* 



980 
1281* 
1273* 
1887* 
1303* 

990 
1507* 
1478* 



1496* 
1441 



1824* 



178 7 
1895* 
1900* 
1838* 



1879 



1028 

1314* 

1300* 

1900 + 

1305+ 

1522 

1550* 

1482* 



1534* 
1446 



198S 
1891 

1881* 



1045 

1337* 

1333* 

1959 

1313* 

1663 + 

1575* 

1497* 



2275 

1338* 

1336* 

1980* 

1325* 

1731 

1664* 

1521 



1357 

1356* 

2004* 

1338 

.7225* 

1725 



14 9 7 
1503 
2033 



2159 



1784 

2052* 2060* 2097 2122* 



2181 2237* £245* 2250* 



1535* 1536* 1537+ 



1549 



1588 



1987 



2057 



C/Tl.BCO TM03-TE-U"" TU, 7 / CU II 
CZTEBC.PU 06-APR-84 10:31 



Ne 



^ 
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CROSS REFERENCE TABLE -- USER SYMBOLS 



SEQ 0078 



DCKE5 


010420 


1933 


1935 


193 70 




















DCKF6 


01045* 


194 3 


19460 






















DCKE : 


010514 


194 7 


1954 






















DEHH. 


000764 


7820 


1790* 


1812* 


1824* 


1846 


1855* 


1897 


1902* 


1946 


1955* 


2005* 


2061* ?119* 


DOl'T 


013614 


1863 
2506 


186/ 
2508 


1964 


1971 


2038 


2042 


2046 


2050 


2106 


2110 


2114 


2118 24900 


DOUTD 


013672 


25040 
























DRVN 


000622 


7330 


938 


940 


982* 


985* 


986 


988 


994 


1734 


2226 






OS 


000522 


6890 


1551 


1737 


2232 


2235 


2238 


2240 


2243 


2246 


2248 






DSUP 


005004 


13980 


1513 






















DSO 


005102 


1399 


1401 


14130 




















DS3 


005120 


14170 
























DS4 


005130 


14190 


1421 






















DT 


000536 


6950 


1002 


2251 




















EMADDR 


000620 


7320 


1062* 


1081* 


1091* 


1109* 


1119* 


1138* 


1148* 


U66* 


1175* 


1193* 


1213* 1223* 






1233* 


1262* 


1326* 


1374* 


1716 


1718 


1744 


1753 


1844 


1944 


2022 


2086 2169 


ENOFLG 


001022 


7970 


931 






















EORP 


011706 


1633 


1652 


21520 




















EORPA 


011702 


21510 
























EORPX 


012110 


2178 


2188 


21900 




















E0RP1 


011742 


21590 


2162 


2164 




















EORP 1 A 


012010 


2168 


2171o 






















E0RP2 


012030 


2160 


2166 


2174 


21760 


















EORP 3 


012072 


2184 


21860 






















ER 


000524 


690fr 


1741 






















ERADD 


000670 


7520 


1 724 * 


1730* 


1736* 


1740* 


1768 














ERRF 


000724 


7660 
























EXEC 


006052 


1457 


1472 


1489 


1500 


15650 
















EXFL 


000714 


7620 
























EXW2 


006530 


1572 


16550 






















EXU2A 


006556 


1658 


16600 






















EXW2B 


006612 


16660 


1667 


1673 




















EXW2C 


006626 


16690 


1670 






















EXW2E 


006646 


16740 
























i XW2E 


006654 


16760 


1677 


16"'0 




















EXU2G 


006704 


1681 


16840 






















EXW2H 


006714 


1655 


1685 


16870 




















E XW2J 


006730 


16910 


1699 






















E XW2 JO 


006750 


1694 


16970 






















EXW2J1 


006/52 


1696 


16980 






















EXW2K 


006772 


1701 


17030 






















EXW2X 


0O7010 


1705 


17070 






















EXO 


006074 


1568 


15700 






















i XI 


006120 


15750 
























r xi a 


006134 


15780 


1581 


1583 




















l X2 


006200 


1585 


1587 


15890 




















EX3 


006224 


1592 


15940 






















EX 5 


006254 


1597 


16010 






















EX5A 


006260 


1595 


1600 


16020 


1632 


1651 
















f-XSAl 


006314 


1607 


16100 






















f X5B 


006350 


1609 


1612 


1615 


16170 


















V x r >c 


006442 


1603 


16380 






















EX5C0 


006506 


164 3 


164/0 






















f XSCl 


006512 


1*46 


1648,'? 






















EX5U 


00651* 


16 36 


IhA'it) 






















h*C 


0005U> 


6870 


1516* 


1519* 





















I ] , • 



COTt.BCO TM03 
C/TtHC.PU 



Tt lb u».v Cl T II MACMi 
06 -APR -&4 10:31 



K>N 


000*50 


ImSWR 


014000 


KW I 


OOOMb 


Hi-Re 


0003*0 


li n 


000 S4 4 


INI T 


010000 


ITAMT 


000604 


itcnt 


000 '00 


ITIR 


own so 


IT Rl P 


000 7 IP 


I. T aoo 


000 .'40 


l.Tl 


000414 


l.UA 


000460 


L T 1H 


0004 :p 


L.UO 


003050 


I.T10A 


003054 


I Til 


005304 


LTHA 


003400 


mix 


00540b 


l Tl? 


0034 36 


LUOA 


003500 


IT IPX 


005554 


l.Tl? 


0055b4 


IT 14 


0036 54 


I T15 


00 5 '04 


L.TU 


003 '-.fe 


I.T16A 


004014 


I T 1 7 


004354 


l T i ;a 


004404 


l TO 


000506 


t toa 


000530 


t.TOO 


004666 


I T JOA 


004 744 


I T * 


000600 


t t *a 


000644 


I T 5R 


000656 


I.T4 


000 70b 


I T4A 


000 710 




000 7b0 


i.TSA 


003004 


l. T 'iH 


003056 


i T*, 


00306b 


I >.A 


0030 70 


i T ' 


00 5144 


1 T /A 


oovio 


l i / u 


00 5000 


Mfy 


000534 


M'j'oi 


01416,' 


M'ifjlO 


014445 


H-A.ll 


0144 .'1 


M'w.i,: 


01451b 


*')(*■: * 


U14V5 


M ..:,;.; 


145 34 


HiliiS 


014WI 



30(1046) Ob APR 84 iOj.36 PAlit HO 
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sto oo r§ 



:/bo 


14V* 


14b7* 


14/7* 


1484* 


1495* 


1550 


9/0 


0091 


05400 










.'5i a 


1008* 


17 1 3 ♦ 


I 7b I 


1 767* 


1789* 


1840 


0030* 


0059* 


0084 


0094* 


016/ 






1058 


10440 












;oio 














1514 


t^^Q 












7000 


0016 












7560 


0011* 


0015* 


001b 








1070 


1099 


1107 


U5b 


1184 


1004 


1 M)9 


7b 10 


1006* 


1007* 


S?V> 








7 70« 


1004* 


1005* 


100b 


1009 


1005* 


1006* 


851 


830 


10580 










10640 


1083 


1038 










1065 


10660 


1069 










845 


846 


11610 










11600 














84 7 


848 


1W10 










1178 


1 1 790 


1183 










1181 


11840 












849 


850 


11890 










1196 


11980 


1003 










1000 


10040 












851 


850 


10090 










853 


854 


10190 










855 


856 


10090 










857 


858 


10600 










1063 


10650 


1304 


1308 








859 


860 


13040 










1307 


1308O 












833 


834 


107bO 










107/0 














861 


860 


13690 










13 76 


13770 












8 35 


836 


108 70 










10930 


mi 












1094 


10950 


1098 










837 


838 


11040 










11050 














839 


840 


1US0 










11010 


1140 


1015 










1100 


1105O 


1 I Ob 










841 


84? 


11300 










11330 














84 5 


844 


U440 










11500 


1168 


1005 










1151 


11500 


1155 










694 


1547* 


1548* 


1549* 


15»./ 


1569* 


15«H* 


1640 


1666 


1668 


1669 


it>n 


01 V 


0155* 


89b 


901* 


£5800 










061 30 














.'61 70 














1 f 70 


Pb.'lO 












1 7/4 


06030 












.'b.'5« 















1854* 



1901 ♦ 194,' 1956* 0003* *0OO 



1360 



1 380 00090 



Ira 7* 

•Hi*.* 



tt>ltt ibii* 1635* 10&U Icv.W* 



06oao 



1-1/ 
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CZTEBC.P11 06-APR #4 10:31 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0085 



$CATCH 


557* 


64? 


SCHAIN 


5574 


88 r 


5CHNM0 


557* 


980 


$RESTO 


557* 


256 7 


SSAVE 


557* 


2557 


.tACU 


557* 


64? 


>$E0P 


557* 


1037 



. A8S» 020360 000 



ERRORS DETECTED: 



CZTKBC,CZTEBC'SOUCRF«CZTEAb.SML/ML,CZTEB(\Pll 

RUN -TIME: 3 5 .8 SECONDS 
RUN T I Mr. RATIO: 13/9 = 1,3 
CORE USED: UK C22 PAGES) 



CZTEBC.Pll 


06-APR... 


.Bl 


CZTEBC.Pll 


06 APR... 


.B5 


CZTEBC.Pll 


06-APR,. , 


.CI 


CiTEBCPll 


06-APR... 


.C5 


CZTEBC.Pll 


Of -APR... 


.01 


CZTEBC.Pll 


06-APR... 


.D5 


CZTEBC.Pll 


06-APR... 


.El 


CZTEBC.Pll 


06-APR... 


.E5 


CZTEBC.Pll 


06-APR... 


.Fl 


CZTEBC.Pll 


06-APR... 


.F5 


CZTEBC.Pll 


06-APR... 


.Gl 


CZTEBC.Pll 


06-APR... 


.G5 


CZTEBC.Pll 


06-APR... 


.HI 


CZTEBC.Pll 


06-APR... 


,H5 


CZTEBC.Pll 


06-APR... 


.11 


CZTEBC.Pll 


06-APR... 


.15 


CZTEBC.Pll 


06-APR... 


.Jl 


CZTEBC.Pll 


06-APR... 


.J5 


CZTEBC.Pll 


06-APR... 


.Kl 


CZTEBC.Pll 


06-APR... 


.K5 


CZTEBC.Pll 


06-APR... 


.LI 


CZTEBC.Pll 


06-APR... 


.15 


CZTEBC.P11 


06-APR... 


.Ml 


CZTEBC.Pll 


06-APR... 


.M5 


CZTEBC.Pll 


06-APR.. . 


.Nl 


CZTEBC.Pll 


06-APR... 


,N5 


CZTEBC.Pll 


06-APR... 


.B2 


CZTEBC.Pll 


06-APR... 


.B6 


CZTEBC.Pll 


06-APR... 


.C2 


CZTEBC.Pll 


06-APR. .. 


.C6 


CZTEBC.Pll 


06-APR... 


.02 


CZTEBC.Pll 


06-APR... 


.06 


CZTEBC.Pll 


06 APR... 


.E2 


CZTEBC.Pll 


06-APR... 


.E6 


CZTEBC.Pll 


06-APR, ,. 


.F2 


CZTEBC.Pll 


06-APR... 


.K6 


CZTEBC.P11 


06-APR... 


.G2 


CZTEBC.Pll 


06-APR. . 


.G6 


CZTEBC.P11 


06-APR... 


.H2 


CZTEBC.Pll 


06-APR... 


. H6 


CZTEBC.Pll 


06-APR... 


.12 


CZTEBC.Pll 


06-APR... 


.16 


CZTEBC.Pll 


06-APR... 


.J2 


CZTEBC.Pll 


06-APR... 


. J6 


CZTEBC.P11 


06-APR... 


,K2 


CZTEBC.Pll 


06-APR... 


.K6 


CZTEBC.P11 


06-APR... 


.L2 


CZTEBC.Pll 


06-APR... 


.L6 


CZTECC.PU 


06-APR... 


,M2 


CZTEBC.Pll 


06-APR... 


.M6 


CZTEBC.P11 


06-APR... 


.N2 


CZTEBC.Pll 


06-APR... 


.N6 


CZTEBC.P11 


06-APR.. , 


.B3 


CZTEBC.Pll 


06-APR... 


.B7 


CZTEBC.Pll 


06-APR... 


.C3 


CZTEBC.Pll 


06-APR... 


.C7 


CZTEBC.P11 


06-APR... 


.03 


CZTEBC.Pll 


06-APR... 


.D7 


CZTEBC.P11 


06-APR... 


.Zl 


CZTEBC.Pll 


06-APR... 


,E7 


CZTEBC.P11 


06-APR... 


.F3 


CZTEBC.Pll 


06-APR... 


.F7 


CZTEBC.Pll 


06-APR... 


.G3 


CZTEBC.Pll 


06-APR... 


.G7 


CZTEBC.Pll 


06-APR... 


.H3 


CZTEBC.Pll 


06-APR,., 


♦ H7 


CZTEBC.Pll 


06-APR... 


.13 








CZTEBC.Pll 


Ob APR, . . 


.J3 








CZTEBC.Pll 


06-APR, . . 


.K3 








CZTEBC.P11 


06-APR... 


.L3 








CZTEBC.Pll 


06-APR... 


.M3 








CZTEBC.Pll 


06-APR... 


.N3 








CZTEBC.Pll 


06-APR... 
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